home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1994-09-06 | 23.9 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0d f4 20 3e 5b | 57 69 6d 70 5d 0d 00 14 |..... >[|Wimp]...|
|00000010| 29 f4 20 4e 61 6d 65 20 | 6f 66 20 41 70 6c 69 63 |). Name |of Aplic|
|00000020| 61 74 69 6f 6e 3a 20 5b | 57 69 6d 70 5d 20 6c 69 |ation: [|Wimp] li|
|00000030| 62 72 61 72 79 2e 0d 00 | 1e 3a f4 20 50 72 6f 67 |brary...|.:. Prog|
|00000040| 72 61 6d 73 20 6a 6f 62 | 3a 20 20 20 20 20 20 20 |rams job|: |
|00000050| 57 69 6d 70 20 73 79 73 | 74 65 6d 20 63 6f 64 65 |Wimp sys|tem code|
|00000060| 20 66 6f 72 20 62 6f 6f | 74 2d 73 75 69 74 65 2e | for boo|t-suite.|
|00000070| 0d 00 28 23 20 20 20 20 | 76 65 72 73 69 6f 6e 24 |..(# |version$|
|00000080| 3d 20 20 20 20 20 20 20 | 20 20 20 20 22 31 2e 30 |= | "1.0|
|00000090| 37 41 22 0d 00 32 26 20 | 20 20 20 6c 61 73 74 5f |7A"..2& | last_|
|000000a0| 75 70 64 61 74 65 64 24 | 3d 20 20 20 20 20 20 22 |updated$|= "|
|000000b0| 30 36 2f 30 39 2f 39 34 | 22 0d 00 3c 3a f4 20 57 |06/09/94|"..<:. W|
|000000c0| 72 69 74 74 65 6e 20 62 | 79 3a 20 20 20 20 20 20 |ritten b|y: |
|000000d0| 20 20 20 4a 6f 65 20 54 | 61 6c 6f 72 20 28 4c 69 | Joe T|alor (Li|
|000000e0| 62 65 72 20 41 62 61 63 | 69 20 53 6f 66 74 77 61 |ber Abac|i Softwa|
|000000f0| 72 65 29 0d 00 46 3d f4 | 20 43 72 65 64 69 74 73 |re)..F=.| Credits|
|00000100| 3a 20 20 20 20 20 20 20 | 20 20 20 20 20 52 2e 52 |: | R.R|
|00000110| 2e 43 68 61 73 6d 65 72 | 20 2d 20 66 6f 72 20 76 |.Chasmer| - for v|
|00000120| 61 72 69 6f 75 73 20 61 | 64 64 69 74 69 6f 6e 73 |arious a|dditions|
|00000130| 0d 00 50 3e f4 20 4e 6f | 74 65 73 3a 20 20 20 20 |..P>. No|tes: |
|00000140| 20 20 20 20 20 20 20 20 | 20 20 54 68 69 73 20 70 | | This p|
|00000150| 72 6f 67 72 61 6d 20 69 | 73 20 70 61 72 74 20 6f |rogram i|s part o|
|00000160| 66 20 27 42 6f 6f 74 2d | 53 75 69 74 65 27 0d 00 |f 'Boot-|Suite'..|
|00000170| 5a 05 20 0d 00 64 56 ff | 28 22 45 52 52 4f 52 20 |Z. ..dV.|("ERROR |
|00000180| 54 68 69 73 20 69 73 20 | 74 68 65 20 27 48 61 6e |This is |the 'Han|
|00000190| 64 6c 65 73 27 20 6c 69 | 62 72 61 72 79 2c 20 70 |dles' li|brary, p|
|000001a0| 61 72 74 20 6f 66 20 27 | 42 6f 6f 74 2d 73 75 69 |art of '|Boot-sui|
|000001b0| 74 65 27 2c 20 61 6e 64 | 20 63 61 6e 6e 6f 74 20 |te', and| cannot |
|000001c0| 62 65 20 72 75 6e 2e 22 | 29 0d 00 6e 05 e0 0d 00 |be run."|)..n....|
|000001d0| 78 04 0d 00 82 04 0d 00 | 8c 20 f4 20 41 6c 74 65 |x.......|. . Alte|
|000001e0| 72 61 74 69 6f 6e 73 20 | 62 79 20 52 2e 52 2e 43 |rations |by R.R.C|
|000001f0| 68 61 73 6d 65 72 0d 00 | 96 36 f4 20 20 20 50 52 |hasmer..|.6. PR|
|00000200| 4f 43 57 69 6d 70 5f 57 | 69 6e 64 6f 77 43 65 6e |OCWimp_W|indowCen|
|00000210| 74 72 65 28 77 69 6e 64 | 6f 77 25 29 2c 20 62 79 |tre(wind|ow%), by|
|00000220| 20 52 2e 52 2e 43 68 61 | 73 6d 65 72 0d 00 a0 46 | R.R.Cha|smer...F|
|00000230| f4 20 20 20 50 52 4f 43 | 57 69 6d 70 5f 47 65 74 |. PROC|Wimp_Get|
|00000240| 4d 6f 64 65 28 52 45 54 | 55 52 4e 20 77 69 64 74 |Mode(RET|URN widt|
|00000250| 68 25 2c 52 45 54 55 52 | 4e 20 68 65 69 67 68 74 |h%,RETUR|N height|
|00000260| 25 29 2c 20 62 79 20 52 | 2e 52 2e 43 68 61 73 6d |%), by R|.R.Chasm|
|00000270| 65 72 0d 00 aa 3c f4 20 | 20 20 50 52 4f 43 57 69 |er...<. | PROCWi|
|00000280| 6d 70 5f 57 69 6e 64 6f | 77 4d 6f 75 73 65 42 6f |mp_Windo|wMouseBo|
|00000290| 75 6e 64 72 79 28 77 69 | 6e 64 6f 77 25 29 2c 20 |undry(wi|ndow%), |
|000002a0| 62 79 20 52 2e 52 2e 43 | 68 61 73 6d 65 72 0d 00 |by R.R.C|hasmer..|
|000002b0| b4 38 f4 20 20 20 46 4e | 57 69 6d 70 5f 52 65 61 |.8. FN|Wimp_Rea|
|000002c0| 64 53 77 69 74 63 68 28 | 77 69 6e 64 6f 77 25 2c |dSwitch(|window%,|
|000002d0| 69 63 6f 6e 25 29 2c 20 | 62 79 20 52 2e 52 2e 43 |icon%), |by R.R.C|
|000002e0| 68 61 73 6d 65 72 0d 00 | be 43 f4 20 20 20 50 52 |hasmer..|.C. PR|
|000002f0| 4f 43 57 69 6d 70 5f 57 | 72 69 74 65 53 77 69 74 |OCWimp_W|riteSwit|
|00000300| 63 68 28 77 69 6e 64 6f | 77 25 2c 69 63 6f 6e 25 |ch(windo|w%,icon%|
|00000310| 2c 73 77 69 74 63 68 25 | 29 2c 20 62 79 20 52 2e |,switch%|), by R.|
|00000320| 52 2e 43 68 61 73 6d 65 | 72 0d 00 c8 54 f4 20 20 |R.Chasme|r...T. |
|00000330| 20 50 52 4f 43 45 76 65 | 6e 74 5f 4f 70 65 6e 57 | PROCEve|nt_OpenW|
|00000340| 69 6e 64 6f 77 28 77 69 | 6e 64 6f 77 25 29 20 26 |indow(wi|ndow%) &|
|00000350| 20 50 52 4f 43 45 76 65 | 6e 74 5f 43 6c 6f 73 65 | PROCEve|nt_Close|
|00000360| 57 69 6e 64 6f 77 28 77 | 69 6e 64 6f 77 25 29 20 |Window(w|indow%) |
|00000370| 61 72 65 20 6e 6f 77 20 | 75 73 65 64 2e 0d 00 d2 |are now |used....|
|00000380| 72 f4 20 20 20 50 52 4f | 43 57 69 6d 70 5f 50 6f |r. PRO|CWimp_Po|
|00000390| 6c 6c 44 72 61 67 42 6f | 78 28 77 69 6e 64 6f 77 |llDragBo|x(window|
|000003a0| 25 2c 69 63 6f 6e 25 2c | 69 63 6f 6e 74 65 78 74 |%,icon%,|icontext|
|000003b0| 25 29 20 61 6c 73 6f 20 | 75 73 65 73 20 67 6c 6f |%) also |uses glo|
|000003c0| 62 61 6c 20 76 61 72 69 | 61 62 6c 65 73 2c 20 64 |bal vari|ables, d|
|000003d0| 72 61 67 77 69 6e 25 2c | 64 72 61 67 69 63 6f 6e |ragwin%,|dragicon|
|000003e0| 25 2c 64 72 61 67 69 63 | 6f 6e 74 65 78 74 25 0d |%,dragic|ontext%.|
|000003f0| 00 dc 04 0d 00 e6 34 f4 | 7c 20 20 20 20 20 20 20 |......4.|| |
|00000400| 20 20 20 20 20 20 20 20 | 20 2d 2d 2d 2d 2d 2d 2d | | -------|
|00000410| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000420| 2d 2d 2d 2d 2d 2d 2d 0d | 00 f0 06 f4 7c 0d 00 fa |-------.|....|...|
|00000430| 30 f4 7c 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0.| | |
|00000440| 20 20 20 20 20 20 20 57 | 49 4d 50 20 50 52 4f 43 | W|IMP PROC|
|00000450| 45 44 55 52 45 20 4c 49 | 42 52 41 52 59 0d 01 04 |EDURE LI|BRARY...|
|00000460| 06 f4 7c 0d 01 0e 30 f4 | 7c 20 20 20 20 20 20 20 |..|...0.|| |
|00000470| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000480| 20 20 49 6e 64 65 78 20 | 6f 66 20 43 6f 6e 74 65 | Index |of Conte|
|00000490| 6e 74 73 0d 01 18 06 f4 | 7c 0d 01 22 34 f4 7c 20 |nts.....||.."4.| |
|000004a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2d | | -|
|000004b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 01 2c |--------|-----..,|
|000004d0| 06 f4 7c 0d 01 36 06 f4 | 7c 0d 01 40 24 f4 7c 20 |..|..6..||..@$.| |
|000004e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000004f0| 20 20 20 31 2e a0 57 69 | 6e 64 6f 77 73 0d 01 4a | 1..Wi|ndows..J|
|00000500| 06 f4 7c 0d 01 54 22 f4 | 7c 20 20 20 20 20 20 20 |..|..T".|| |
|00000510| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 32 2e a0 | | 2..|
|00000520| 49 63 6f 6e 73 0d 01 5e | 06 f4 7c 0d 01 68 22 f4 |Icons..^|..|..h".|
|00000530| 7c 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 || | |
|00000540| 20 20 20 20 20 33 2e a0 | 4d 65 6e 75 73 0d 01 72 | 3..|Menus..r|
|00000550| 06 f4 7c 0d 01 7c 24 f4 | 7c 20 20 20 20 20 20 20 |..|..|$.|| |
|00000560| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 34 2e a0 | | 4..|
|00000570| 53 70 72 69 74 65 73 0d | 01 86 06 f4 7c 0d 01 90 |Sprites.|....|...|
|00000580| 2a f4 7c 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |*.| | |
|00000590| 20 20 20 20 20 20 20 35 | 2e a0 4d 69 73 63 65 6c | 5|..Miscel|
|000005a0| 6c 61 6e 65 6f 75 73 0d | 01 9a 06 f4 7c 0d 01 a4 |laneous.|....|...|
|000005b0| 24 f4 7c 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |$.| | |
|000005c0| 20 20 20 20 20 20 20 36 | 2e a0 50 6f 6c 6c 69 6e | 6|..Pollin|
|000005d0| 67 0d 01 ae 06 f4 7c 0d | 01 b8 35 f4 7c 20 20 20 |g.....|.|..5.| |
|000005e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2d 2d 2d | | ---|
|000005f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 01 c2 06 |--------|----....|
|00000610| f4 7c 0d 01 cc 06 f4 7c | 0d 01 d6 06 f4 7c 0d 01 |.|.....||.....|..|
|00000620| e0 06 f4 7c 0d 01 ea 06 | f4 7c 0d 01 f4 06 f4 7c |...|....|.|.....||
|00000630| 0d 01 fe 35 f4 7c 20 20 | 20 20 20 20 20 20 20 20 |...5.| | |
|00000640| 20 20 20 20 20 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | --|--------|
|00000650| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000660| 2d 2d 2d 2d 2d 0d 02 08 | 2a f4 7c 20 20 20 20 20 |-----...|*.| |
|00000670| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000680| 20 20 20 20 20 31 2e a0 | 57 69 6e 64 6f 77 73 0d | 1..|Windows.|
|00000690| 02 12 35 f4 7c 20 20 20 | 20 20 20 20 20 20 20 20 |..5.| | |
|000006a0| 20 20 20 20 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | ---|--------|
|000006b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006c0| 2d 2d 2d 2d 0d 02 1c 06 | f4 7c 0d 02 26 06 f4 7c |----....|.|..&..||
|000006d0| 0d 02 30 40 f4 7c 20 20 | 20 20 20 20 20 20 20 20 |..0@.| | |
|000006e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000700| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000710| 0d 02 3a 06 f4 7c 0d 02 | 44 28 f4 7c 20 20 20 20 |..:..|..|D(.| |
|00000720| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000730| 20 20 50 72 6f 63 65 64 | 75 72 65 73 20 3a 0d 02 | Proced|ures :..|
|00000740| 4e 06 f4 7c 0d 02 58 38 | f4 7c 20 20 20 20 20 20 |N..|..X8|.| |
|00000750| 20 20 20 20 20 20 20 50 | 52 4f 43 57 69 6d 70 5f | P|ROCWimp_|
|00000760| 57 69 6e 64 6f 77 41 6c | 65 72 74 28 74 69 74 6c |WindowAl|ert(titl|
|00000770| 65 24 2c 6d 65 73 73 61 | 67 65 24 29 0d 02 62 43 |e$,messa|ge$)..bC|
|00000780| f4 7c 20 20 20 20 20 20 | 20 20 20 20 20 20 20 50 |.| | P|
|00000790| 52 4f 43 57 69 6d 70 5f | 57 69 6e 64 6f 77 41 6c |ROCWimp_|WindowAl|
|000007a0| 65 72 74 42 6f 78 28 74 | 69 74 6c 65 24 2c 6d 65 |ertBox(t|itle$,me|
|000007b0| 73 73 61 67 65 24 2c 62 | 75 74 74 6f 6e 25 29 0d |ssage$,b|utton%).|
|000007c0| 02 6c 37 f4 7c 20 20 20 | 20 20 20 20 20 20 20 20 |.l7.| | |
|000007d0| 20 20 46 4e 57 69 6d 70 | 5f 57 69 6e 64 6f 77 43 | FNWimp|_WindowC|
|000007e0| 61 6e 63 65 6c 28 74 69 | 74 6c 65 24 2c 6d 65 73 |ancel(ti|tle$,mes|
|000007f0| 73 61 67 65 24 29 0d 02 | 76 3b f4 7c 20 20 20 20 |sage$)..|v;.| |
|00000800| 20 20 20 20 20 20 20 20 | 20 50 52 4f 43 57 69 6d | | PROCWim|
|00000810| 70 5f 57 69 6e 64 6f 77 | 45 72 72 6f 72 42 6f 78 |p_Window|ErrorBox|
|00000820| 28 74 69 74 6c 65 24 2c | 6d 65 73 73 61 67 65 24 |(title$,|message$|
|00000830| 29 0d 02 80 2e f4 7c 20 | 20 20 20 20 20 20 20 20 |).....| | |
|00000840| 20 20 20 20 46 4e 57 69 | 6d 70 5f 57 69 6e 64 6f | FNWi|mp_Windo|
|00000850| 77 54 69 74 6c 65 28 77 | 69 6e 64 6f 77 25 29 0d |wTitle(w|indow%).|
|00000860| 02 8a 2d f4 7c 20 20 20 | 20 20 20 20 20 20 20 20 |..-.| | |
|00000870| 20 20 46 4e 57 69 6d 70 | 5f 57 69 6e 64 6f 77 4c | FNWimp|_WindowL|
|00000880| 6f 61 64 28 77 69 6e 64 | 6f 77 24 29 0d 02 94 3b |oad(wind|ow$)...;|
|00000890| f4 7c 20 20 20 20 20 20 | 20 20 20 20 20 20 20 46 |.| | F|
|000008a0| 4e 57 69 6d 70 5f 57 69 | 6e 64 6f 77 4c 6f 61 64 |NWimp_Wi|ndowLoad|
|000008b0| 46 72 6f 6d 28 77 69 6e | 64 6f 77 24 2c 74 65 6d |From(win|dow$,tem|
|000008c0| 70 6c 61 74 65 24 29 0d | 02 9e 35 f4 7c 20 20 20 |plate$).|..5.| |
|000008d0| 20 20 20 20 20 20 20 20 | 20 20 50 52 4f 43 57 69 | | PROCWi|
|000008e0| 6d 70 5f 57 69 6e 64 6f | 77 42 72 69 6e 67 54 6f |mp_Windo|wBringTo|
|000008f0| 54 6f 70 28 77 69 6e 64 | 6f 77 25 29 0d 02 a8 34 |Top(wind|ow%)...4|
|00000900| f4 7c 20 20 20 20 20 20 | 20 20 20 20 20 20 20 50 |.| | P|
|00000910| 52 4f 43 57 69 6d 70 5f | 57 69 6e 64 6f 77 46 6f |ROCWimp_|WindowFo|
|00000920| 72 63 65 44 72 61 77 28 | 77 69 6e 64 6f 77 25 29 |rceDraw(|window%)|
|00000930| 0d 02 b2 2f f4 7c 20 20 | 20 20 20 20 20 20 20 20 |.../.| | |
|00000940| 20 20 20 50 52 4f 43 57 | 69 6d 70 5f 57 69 6e 64 | PROCW|imp_Wind|
|00000950| 6f 77 4f 70 65 6e 28 77 | 69 6e 64 6f 77 25 29 0d |owOpen(w|indow%).|
|00000960| 02 bc 2b f4 7c 20 20 20 | 20 20 20 20 20 20 20 20 |..+.| | |
|00000970| 20 20 50 52 4f 43 57 69 | 6d 70 5f 57 69 6e 64 6f | PROCWi|mp_Windo|
|00000980| 77 49 6e 74 65 72 66 61 | 63 65 0d 02 c6 41 f4 7c |wInterfa|ce...A.||
|00000990| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 50 52 4f | | PRO|
|000009a0| 43 57 69 6d 70 5f 57 69 | 6e 64 6f 77 43 65 6e 74 |CWimp_Wi|ndowCent|
|000009b0| 72 65 28 77 69 6e 64 6f | 77 25 29 2c 20 62 79 20 |re(windo|w%), by |
|000009c0| 52 2e 52 2e 43 68 61 73 | 6d 65 72 0d 02 d0 51 f4 |R.R.Chas|mer...Q.|
|000009d0| 7c 20 20 20 20 20 20 20 | 20 20 20 20 20 20 50 52 || | PR|
|000009e0| 4f 43 57 69 6d 70 5f 47 | 65 74 4d 6f 64 65 28 52 |OCWimp_G|etMode(R|
|000009f0| 45 54 55 52 4e 20 77 69 | 64 74 68 25 2c 52 45 54 |ETURN wi|dth%,RET|
|00000a00| 55 52 4e 20 68 65 69 67 | 68 74 25 29 2c 20 62 79 |URN heig|ht%), by|
|00000a10| 20 52 2e 52 2e 43 68 61 | 73 6d 65 72 0d 02 da 37 | R.R.Cha|smer...7|
|00000a20| f4 7c 20 20 20 20 20 20 | 20 20 20 20 20 20 20 50 |.| | P|
|00000a30| 52 4f 43 57 69 6d 70 5f | 57 69 6e 64 6f 77 4d 6f |ROCWimp_|WindowMo|
|00000a40| 75 73 65 42 6f 75 6e 64 | 72 79 28 77 69 6e 64 6f |useBound|ry(windo|
|00000a50| 77 25 29 0d 02 e4 06 f4 | 7c 0d 02 ee 3f f4 7c 20 |w%).....||...?.| |
|00000a60| 20 20 20 20 20 20 20 20 | 20 20 2d 2d 2d 2d 2d 2d | | ------|
|00000a70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a90| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 02 f8 06 f4 7c 0d 03 |--------|.....|..|
|00000aa0| 02 06 f4 7c 0d 03 0c 06 | f4 7c 0d 03 16 28 dd 20 |...|....|.|...(. |
|00000ab0| f2 57 69 6d 70 5f 57 69 | 6e 64 6f 77 41 6c 65 72 |.Wimp_Wi|ndowAler|
|00000ac0| 74 28 74 69 74 6c 65 24 | 2c 6d 65 73 73 61 67 65 |t(title$|,message|
|00000ad0| 24 29 0d 03 20 2b f2 57 | 69 6d 70 5f 57 69 6e 64 |$).. +.W|imp_Wind|
|00000ae0| 6f 77 41 6c 65 72 74 42 | 6f 78 28 74 69 74 6c 65 |owAlertB|ox(title|
|00000af0| 24 2c 6d 65 73 73 61 67 | 65 24 2c 30 29 0d 03 2a |$,messag|e$,0)..*|
|00000b00| 05 e1 0d 03 34 05 3a 0d | 03 3e 33 dd 20 f2 57 69 |....4.:.|.>3. .Wi|
|00000b10| 6d 70 5f 57 69 6e 64 6f | 77 41 6c 65 72 74 42 6f |mp_Windo|wAlertBo|
|00000b20| 78 28 74 69 74 6c 65 24 | 2c 6d 65 73 73 61 67 65 |x(title$|,message|
|00000b30| 24 2c 62 75 74 74 6f 6e | 25 29 0d 03 48 0f ea 20 |$,button|%)..H.. |
|00000b40| 72 65 73 70 6f 6e 73 65 | 25 0d 03 52 17 24 28 77 |response|%..R.$(w|
|00000b50| 69 6d 70 25 2b 34 29 3d | 6d 65 73 73 61 67 65 24 |imp%+4)=|message$|
|00000b60| 0d 03 5c 10 c8 8e 20 62 | 75 74 74 6f 6e 25 20 ca |..\... b|utton% .|
|00000b70| 0d 03 66 19 20 c9 20 32 | 20 20 20 20 3a 20 72 65 |..f. . 2| : re|
|00000b80| 73 70 6f 6e 73 65 25 3d | 31 0d 03 70 1a 20 c9 20 |sponse%=|1..p. . |
|00000b90| 31 20 20 20 20 3a 20 72 | 65 73 70 6f 6e 73 65 25 |1 : r|esponse%|
|00000ba0| 3d 31 35 0d 03 7a 21 20 | c9 20 33 20 20 20 20 3a |=15..z! |. 3 :|
|00000bb0| 20 72 65 73 70 6f 6e 73 | 65 25 3d 28 31 3c 3c 35 | respons|e%=(1<<5|
|00000bc0| 29 2b 31 36 0d 03 84 21 | 20 c9 20 34 20 20 20 20 |)+16...!| . 4 |
|00000bd0| 3a 20 72 65 73 70 6f 6e | 73 65 25 3d 28 31 3c 3c |: respon|se%=(1<<|
|00000be0| 36 29 2b 31 36 0d 03 8e | 14 7f 20 3a 20 72 65 73 |6)+16...|.. : res|
|00000bf0| 70 6f 6e 73 65 25 3d 31 | 36 0d 03 98 05 cb 0d 03 |ponse%=1|6.......|
|00000c00| a2 3d c8 99 20 22 57 69 | 6d 70 5f 52 65 70 6f 72 |.=.. "Wi|mp_Repor|
|00000c10| 74 45 72 72 6f 72 22 2c | 77 69 6d 70 25 2c 72 65 |tError",|wimp%,re|
|00000c20| 73 70 6f 6e 73 65 25 2c | 74 69 74 6c 65 24 20 b8 |sponse%,|title$ .|
|00000c30| 20 2c 72 65 73 70 6f 6e | 73 65 25 0d 03 ac 05 e1 | ,respon|se%.....|
|00000c40| 0d 03 b6 05 3a 0d 03 c0 | 29 dd 20 a4 57 69 6d 70 |....:...|). .Wimp|
|00000c50| 5f 57 69 6e 64 6f 77 43 | 61 6e 63 65 6c 28 74 69 |_WindowC|ancel(ti|
|00000c60| 74 6c 65 24 2c 6d 65 73 | 73 61 67 65 24 29 0d 03 |tle$,mes|sage$)..|
|00000c70| ca 17 24 28 77 69 6d 70 | 25 2b 34 29 3d 6d 65 73 |..$(wimp|%+4)=mes|
|00000c80| 73 61 67 65 24 0d 03 d4 | 10 72 65 73 70 6f 6e 73 |sage$...|.respons|
|00000c90| 65 25 3d 32 33 0d 03 de | 3d c8 99 20 22 57 69 6d |e%=23...|=.. "Wim|
|00000ca0| 70 5f 52 65 70 6f 72 74 | 45 72 72 6f 72 22 2c 77 |p_Report|Error",w|
|00000cb0| 69 6d 70 25 2c 72 65 73 | 70 6f 6e 73 65 25 2c 74 |imp%,res|ponse%,t|
|00000cc0| 69 74 6c 65 24 20 b8 20 | 2c 72 65 73 70 6f 6e 73 |itle$ . |,respons|
|00000cd0| 65 25 0d 03 e8 10 3d 72 | 65 73 70 6f 6e 73 65 25 |e%....=r|esponse%|
|00000ce0| 2d 32 0d 03 f2 05 3a 0d | 03 fc 2b dd 20 f2 57 69 |-2....:.|..+. .Wi|
|00000cf0| 6d 70 5f 57 69 6e 64 6f | 77 45 72 72 6f 72 42 6f |mp_Windo|wErrorBo|
|00000d00| 78 28 74 69 74 6c 65 24 | 2c 6d 65 73 73 61 67 65 |x(title$|,message|
|00000d10| 24 29 0d 04 06 2b f2 57 | 69 6d 70 5f 57 69 6e 64 |$)...+.W|imp_Wind|
|00000d20| 6f 77 41 6c 65 72 74 42 | 6f 78 28 74 69 74 6c 65 |owAlertB|ox(title|
|00000d30| 24 2c 6d 65 73 73 61 67 | 65 24 2c 32 29 0d 04 10 |$,messag|e$,2)...|
|00000d40| 05 e1 0d 04 1a 05 3a 0d | 04 24 20 dd 20 a4 57 69 |......:.|.$ . .Wi|
|00000d50| 6d 70 5f 57 69 6e 64 6f | 77 54 69 74 6c 65 28 77 |mp_Windo|wTitle(w|
|00000d60| 69 6e 64 6f 77 25 29 0d | 04 2e 13 77 69 6d 70 25 |indow%).|...wimp%|
|00000d70| 21 30 3d 77 69 6e 64 6f | 77 25 0d 04 38 20 c8 99 |!0=windo|w%..8 ..|
|00000d80| 20 22 57 69 6d 70 5f 47 | 65 74 57 69 6e 64 49 6e | "Wimp_G|etWindIn|
|00000d90| 66 6f 22 2c 2c 77 69 6d | 70 25 0d 04 42 36 e7 20 |fo",,wim|p%..B6. |
|00000da0| 28 28 77 69 6d 70 25 21 | 36 30 29 80 26 31 30 30 |((wimp%!|60).&100|
|00000db0| 29 3d 30 20 85 20 31 2c | 22 54 69 74 6c 65 20 69 |)=0 . 1,|"Title i|
|00000dc0| 73 6e 27 74 20 69 6e 64 | 69 72 65 63 74 65 64 22 |sn't ind|irected"|
|00000dd0| 0d 04 4c 10 3d 24 28 77 | 69 6d 70 25 21 37 36 29 |..L.=$(w|imp%!76)|
|00000de0| 0d 04 56 05 3a 0d 04 60 | 1f dd 20 a4 57 69 6d 70 |..V.:..`|.. .Wimp|
|00000df0| 5f 57 69 6e 64 6f 77 4c | 6f 61 64 28 77 69 6e 64 |_WindowL|oad(wind|
|00000e00| 6f 77 24 29 0d 04 6a 39 | 3d a4 57 69 6d 70 5f 57 |ow$)..j9|=.Wimp_W|
|00000e10| 69 6e 64 6f 77 4c 6f 61 | 64 46 72 6f 6d 28 77 69 |indowLoa|dFrom(wi|
|00000e20| 6e 64 6f 77 24 2c 22 3c | 4f 62 65 79 24 44 69 72 |ndow$,"<|Obey$Dir|
|00000e30| 3e 2e 54 65 6d 70 6c 61 | 74 65 73 22 29 0d 04 74 |>.Templa|tes")..t|
|00000e40| 05 3a 0d 04 7e 2d dd 20 | a4 57 69 6d 70 5f 57 69 |.:..~-. |.Wimp_Wi|
|00000e50| 6e 64 6f 77 4c 6f 61 64 | 46 72 6f 6d 28 77 69 6e |ndowLoad|From(win|
|00000e60| 64 6f 77 24 2c 74 65 6d | 70 6c 61 74 65 24 29 0d |dow$,tem|plate$).|
|00000e70| 04 88 1a ea 20 63 25 2c | 69 25 2c 6e 25 2c 6a 25 |.... c%,|i%,n%,j%|
|00000e80| 2c 73 70 24 2c 73 70 32 | 24 0d 04 92 25 c8 99 20 |,sp$,sp2|$...%.. |
|00000e90| 22 57 69 6d 70 5f 4f 70 | 65 6e 54 65 6d 70 6c 61 |"Wimp_Op|enTempla|
|00000ea0| 74 65 22 2c 2c 74 65 6d | 70 6c 61 74 65 24 0d 04 |te",,tem|plate$..|
|00000eb0| 9c 4d c8 99 20 22 57 69 | 6d 70 5f 4c 6f 61 64 54 |.M.. "Wi|mp_LoadT|
|00000ec0| 65 6d 70 6c 61 74 65 22 | 2c 2c 77 69 6d 70 25 2c |emplate"|,,wimp%,|
|00000ed0| 69 63 6f 6e 73 25 2c 69 | 63 6f 6e 5f 6d 65 6d 6f |icons%,i|con_memo|
|00000ee0| 72 79 25 2c 2d 31 2c 77 | 69 6e 64 6f 77 24 2c 30 |ry%,-1,w|indow$,0|
|00000ef0| 20 b8 20 2c 2c 69 63 6f | 6e 73 25 0d 04 a6 11 c8 | . ,,ico|ns%.....|
|00000f00| 8e 20 73 70 72 69 74 65 | 73 25 20 ca 0d 04 b0 1f |. sprite|s% .....|
|00000f10| 20 c9 20 31 20 20 20 20 | 3a 20 77 69 6d 70 25 21 | . 1 |: wimp%!|
|00000f20| 36 34 3d 73 70 72 69 74 | 65 73 25 0d 04 ba 29 20 |64=sprit|es%...) |
|00000f30| 7f 20 3a 20 77 69 6d 70 | 25 21 36 34 3d a4 45 76 |. : wimp|%!64=.Ev|
|00000f40| 65 6e 74 5f 53 70 72 69 | 74 65 73 28 77 69 6e 64 |ent_Spri|tes(wind|
|00000f50| 6f 77 25 29 0d 04 c4 05 | cb 0d 04 ce 26 c8 99 20 |ow%)....|....&.. |
|00000f60| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 57 69 6e 64 |"Wimp_Cr|eateWind|
|00000f70| 6f 77 22 2c 2c 77 69 6d | 70 25 20 b8 20 63 25 0d |ow",,wim|p% . c%.|
|00000f80| 04 d8 1b c8 99 20 22 57 | 69 6d 70 5f 43 6c 6f 73 |..... "W|imp_Clos|
|00000f90| 65 54 65 6d 70 6c 61 74 | 65 22 0d 04 e2 37 c8 99 |eTemplat|e"...7..|
|00000fa0| 20 22 57 69 6d 70 5f 57 | 68 69 63 68 49 63 6f 6e | "Wimp_W|hichIcon|
|00000fb0| 22 2c 63 25 2c 77 69 6d | 70 25 2b 34 30 2c 31 2b |",c%,wim|p%+40,1+|
|00000fc0| 32 2b 28 31 3c 3c 38 29 | 2c 32 2b 28 31 3c 3c 38 |2+(1<<8)|,2+(1<<8|
|00000fd0| 29 0d 04 ec 11 c8 8e 20 | 77 69 6d 70 25 21 34 30 |)...... |wimp%!40|
|00000fe0| 20 ca 0d 04 f6 0d 20 c9 | 20 2d 31 20 20 20 3a 0d | ..... .| -1 :.|
|00000ff0| 05 00 0e 20 7f 20 3a 20 | 69 25 3d 34 30 0d 05 0a |... . : |i%=40...|
|00001000| 06 20 f5 0d 05 14 24 20 | 20 20 77 69 6d 70 25 21 |. ....$ | wimp%!|
|00001010| 34 3d 77 69 6d 70 25 21 | 69 25 20 3a 20 77 69 6d |4=wimp%!|i% : wim|
|00001020| 70 25 21 30 3d 63 25 0d | 05 1e 24 20 20 20 c8 99 |p%!0=c%.|..$ ..|
|00001030| 20 22 57 69 6d 70 5f 47 | 65 74 49 63 6f 6e 53 74 | "Wimp_G|etIconSt|
|00001040| 61 74 65 22 2c 2c 77 69 | 6d 70 25 0d 05 28 2d 20 |ate",,wi|mp%..(- |
|00001050| 20 20 73 70 24 3d a4 57 | 69 6d 70 5f 47 65 74 53 | sp$=.W|imp_GetS|
|00001060| 74 72 69 6e 67 41 74 41 | 64 64 72 65 73 73 28 77 |tringAtA|ddress(w|
|00001070| 69 6d 70 25 21 32 38 29 | 0d 05 32 22 20 20 20 c8 |imp%!28)|..2" .|
|00001080| 99 20 22 57 69 6d 70 5f | 44 65 6c 65 74 65 49 63 |. "Wimp_|DeleteIc|
|00001090| 6f 6e 22 2c 2c 77 69 6d | 70 25 0d 05 3c 14 20 20 |on",,wim|p%..<. |
|000010a0| 20 c8 8e 20 73 70 72 69 | 74 65 73 25 20 ca 0d 05 | .. spri|tes% ...|
|000010b0| 46 1b 20 20 20 20 c9 20 | 31 20 20 20 20 3a 20 77 |F. . |1 : w|
|000010c0| 69 6d 70 25 21 33 32 3d | 31 0d 05 50 0b 20 20 20 |imp%!32=|1..P. |
|000010d0| 20 7f 20 3a 0d 05 5a 2f | 20 20 20 20 20 c8 99 20 | . :..Z/| .. |
|000010e0| 22 4f 53 5f 53 70 72 69 | 74 65 4f 70 22 2c 26 31 |"OS_Spri|teOp",&1|
|000010f0| 30 38 2c 73 70 72 69 74 | 65 73 25 20 b8 20 2c 2c |08,sprit|es% . ,,|
|00001100| 2c 6e 25 0d 05 64 0d 20 | 20 20 20 20 6a 25 3d 30 |,n%..d. | j%=0|
|00001110| 0d 05 6e 12 20 20 20 20 | 20 f5 20 3a 20 6a 25 2b |..n. | . : j%+|
|00001120| 3d 31 0d 05 78 3d 20 20 | 20 20 20 20 c8 99 20 22 |=1..x= | .. "|
|00001130| 4f 53 5f 53 70 72 69 74 | 65 4f 70 22 2c 26 31 30 |OS_Sprit|eOp",&10|
|00001140| 44 2c 73 70 72 69 74 65 | 73 25 2c 70 6f 69 6e 74 |D,sprite|s%,point|
|00001150| 65 72 5f 62 6c 6f 63 6b | 25 2c 32 30 2c 6a 25 0d |er_block|%,20,j%.|
|00001160| 05 82 37 20 20 20 20 20 | 20 73 70 32 24 3d a4 57 |..7 | sp2$=.W|
|00001170| 69 6d 70 5f 47 65 74 53 | 74 72 69 6e 67 41 74 41 |imp_GetS|tringAtA|
|00001180| 64 64 72 65 73 73 28 70 | 6f 69 6e 74 65 72 5f 62 |ddress(p|ointer_b|
|00001190| 6c 6f 63 6b 25 29 0d 05 | 8c 1b 20 20 20 20 20 fd |lock%)..|.. .|
|000011a0| 20 6a 25 3d 6e 25 20 84 | 20 73 70 24 3d 73 70 32 | j%=n% .| sp$=sp2|
|000011b0| 24 0d 05 96 34 20 20 20 | 20 20 e7 20 73 70 24 3d |$...4 | . sp$=|
|000011c0| 73 70 32 24 20 8c 20 77 | 69 6d 70 25 21 33 32 3d |sp2$ . w|imp%!32=|
|000011d0| 73 70 72 69 74 65 73 25 | 20 8b 20 77 69 6d 70 25 |sprites%| . wimp%|
|000011e0| 21 33 32 3d 31 0d 05 a0 | 08 20 20 20 cb 0d 05 aa |!32=1...|. ....|
|000011f0| 11 20 20 20 77 69 6d 70 | 25 21 34 3d 63 25 0d 05 |. wimp|%!4=c%..|
|00001200| b4 2e 20 20 20 c8 99 20 | 22 57 69 6d 70 5f 43 72 |.. .. |"Wimp_Cr|
|00001210| 65 61 74 65 49 63 6f 6e | 22 2c 2c 77 69 6d 70 25 |eateIcon|",,wimp%|
|00001220| 2b 34 20 b8 20 68 61 6e | 64 6c 65 25 0d 05 be 0c |+4 . han|dle%....|
|00001230| 20 20 20 69 25 2b 3d 34 | 0d 05 c8 14 20 fd 20 28 | i%+=4|.... . (|
|00001240| 77 69 6d 70 25 21 69 25 | 29 3d 2d 31 0d 05 d2 05 |wimp%!i%|)=-1....|
|00001250| cb 0d 05 dc 07 3d 63 25 | 0d 05 e6 05 3a 0d 05 f0 |.....=c%|....:...|
|00001260| 25 dd 20 f2 57 69 6d 70 | 5f 57 69 6e 64 6f 77 42 |%. .Wimp|_WindowB|
|00001270| 72 69 6e 67 54 6f 54 6f | 70 28 77 69 6e 64 6f 77 |ringToTo|p(window|
|00001280| 25 29 0d 05 fa 12 21 77 | 69 6d 70 25 3d 77 69 6e |%)....!w|imp%=win|
|00001290| 64 6f 77 25 0d 06 04 23 | c8 99 20 22 57 69 6d 70 |dow%...#|.. "Wimp|
|000012a0| 5f 47 65 74 57 69 6e 64 | 6f 77 53 74 61 74 65 22 |_GetWind|owState"|
|000012b0| 2c 2c 77 69 6d 70 25 0d | 06 0e 0f 77 69 6d 70 25 |,,wimp%.|...wimp%|
|000012c0| 21 32 38 3d 2d 31 0d 06 | 18 1c f2 45 76 65 6e 74 |!28=-1..|...Event|
|000012d0| 5f 4f 70 65 6e 57 69 6e | 64 6f 77 28 77 69 6d 70 |_OpenWin|dow(wimp|
|000012e0| 25 29 0d 06 22 05 e1 0d | 06 2c 05 3a 0d 06 36 20 |%).."...|.,.:..6 |
|000012f0| dd 20 f2 57 69 6d 70 5f | 57 69 6e 64 6f 77 43 6c |. .Wimp_|WindowCl|
|00001300| 6f 73 65 28 77 69 6e 64 | 6f 77 25 29 0d 06 40 20 |ose(wind|ow%)..@ |
|00001310| 20 f2 45 76 65 6e 74 5f | 43 6c 6f 73 65 57 69 6e | .Event_|CloseWin|
|00001320| 64 6f 77 28 77 69 6e 64 | 6f 77 25 29 0d 06 4a 05 |dow(wind|ow%)..J.|
|00001330| e1 0d 06 54 05 3a 0d 06 | 5e 24 dd 20 f2 57 69 6d |...T.:..|^$. .Wim|
|00001340| 70 5f 57 69 6e 64 6f 77 | 46 6f 72 63 65 44 72 61 |p_Window|ForceDra|
|00001350| 77 28 77 69 6e 64 6f 77 | 25 29 0d 06 68 10 c8 8e |w(window|%)..h...|
|00001360| 20 77 69 6e 64 6f 77 25 | 20 ca 0d 06 72 38 20 c9 | window%| ...r8 .|
|00001370| 20 2d 31 20 20 20 3a 20 | c8 99 20 22 57 69 6d 70 | -1 : |.. "Wimp|
|00001380| 5f 46 6f 72 63 65 52 65 | 64 72 61 77 22 2c 2d 31 |_ForceRe|draw",-1|
|00001390| 2c 30 2c 30 2c 32 2a 31 | 32 38 30 2c 32 2a 31 30 |,0,0,2*1|280,2*10|
|000013a0| 32 34 0d 06 7c 39 20 7f | 20 3a 20 c8 99 20 22 57 |24..|9 .| : .. "W|
|000013b0| 69 6d 70 5f 46 6f 72 63 | 65 52 65 64 72 61 77 22 |imp_Forc|eRedraw"|
|000013c0| 2c 77 69 6e 64 6f 77 25 | 2c 30 2c 2d 32 2a 31 30 |,window%|,0,-2*10|
|000013d0| 32 34 2c 32 2a 31 32 38 | 30 2c 30 0d 06 86 05 cb |24,2*128|0,0.....|
|000013e0| 0d 06 90 05 e1 0d 06 9a | 05 3a 0d 06 a4 1f dd 20 |........|.:..... |
|000013f0| f2 57 69 6d 70 5f 57 69 | 6e 64 6f 77 4f 70 65 6e |.Wimp_Wi|ndowOpen|
|00001400| 28 77 69 6e 64 6f 77 25 | 29 0d 06 ae 12 21 77 69 |(window%|)....!wi|
|00001410| 6d 70 25 3d 77 69 6e 64 | 6f 77 25 0d 06 b8 23 c8 |mp%=wind|ow%...#.|
|00001420| 99 20 22 57 69 6d 70 5f | 47 65 74 57 69 6e 64 6f |. "Wimp_|GetWindo|
|00001430| 77 53 74 61 74 65 22 2c | 2c 77 69 6d 70 25 0d 06 |wState",|,wimp%..|
|00001440| c2 1c f2 45 76 65 6e 74 | 5f 4f 70 65 6e 57 69 6e |...Event|_OpenWin|
|00001450| 64 6f 77 28 77 69 6d 70 | 25 29 0d 06 cc 04 0d 06 |dow(wimp|%)......|
|00001460| d6 05 e1 0d 06 e0 05 3a | 0d 06 ea 19 f2 57 69 6d |.......:|.....Wim|
|00001470| 70 5f 57 69 6e 64 6f 77 | 49 6e 74 65 72 66 61 63 |p_Window|Interfac|
|00001480| 65 0d 06 f4 20 c8 99 22 | 57 69 6d 70 5f 42 6f 72 |e... .."|Wimp_Bor|
|00001490| 64 65 72 57 69 6e 64 6f | 77 22 2c 2c 77 69 6d 70 |derWindo|w",,wimp|
|000014a0| 25 0d 06 fe 05 e1 0d 07 | 08 05 3a 0d 07 12 20 dd |%.......|..:... .|
|000014b0| f2 57 69 6d 70 5f 57 69 | 6e 64 6f 77 43 65 6e 74 |.Wimp_Wi|ndowCent|
|000014c0| 72 65 28 77 69 6e 64 6f | 77 25 29 0d 07 1c 1f 20 |re(windo|w%).... |
|000014d0| ea 73 69 7a 65 78 25 2c | 73 69 7a 65 79 25 2c 73 |.sizex%,|sizey%,s|
|000014e0| 63 72 78 25 2c 73 63 72 | 79 25 0d 07 26 1f 20 f2 |crx%,scr|y%..&. .|
|000014f0| 57 69 6d 70 5f 47 65 74 | 4d 6f 64 65 28 73 63 72 |Wimp_Get|Mode(scr|
|00001500| 78 25 2c 73 63 72 79 25 | 29 0d 07 30 13 20 21 77 |x%,scry%|)..0. !w|
|00001510| 69 6d 70 25 3d 77 69 6e | 64 6f 77 25 0d 07 3a 23 |imp%=win|dow%..:#|
|00001520| 20 c8 99 22 57 69 6d 70 | 5f 47 65 74 57 69 6e 64 | .."Wimp|_GetWind|
|00001530| 6f 77 53 74 61 74 65 22 | 2c 2c 77 69 6d 70 25 0d |owState"|,,wimp%.|
|00001540| 07 44 34 20 73 69 7a 65 | 78 25 3d 77 69 6d 70 25 |.D4 size|x%=wimp%|
|00001550| 21 31 32 2d 77 69 6d 70 | 25 21 34 3a 73 69 7a 65 |!12-wimp|%!4:size|
|00001560| 79 25 3d 77 69 6d 70 25 | 21 31 36 2d 77 69 6d 70 |y%=wimp%|!16-wimp|
|00001570| 25 21 38 0d 07 4e 39 20 | 77 69 6d 70 25 21 34 3d |%!8..N9 |wimp%!4=|
|00001580| 73 63 72 78 25 2f 32 2d | 73 69 7a 65 78 25 2f 32 |scrx%/2-|sizex%/2|
|00001590| 3a 77 69 6d 70 25 21 38 | 3d 73 63 72 79 25 2f 32 |:wimp%!8|=scry%/2|
|000015a0| 2d 73 69 7a 65 79 25 2f | 32 2b 34 30 0d 07 58 34 |-sizey%/|2+40..X4|
|000015b0| 20 77 69 6d 70 25 21 31 | 32 3d 77 69 6d 70 25 21 | wimp%!1|2=wimp%!|
|000015c0| 34 2b 73 69 7a 65 78 25 | 3a 77 69 6d 70 25 21 31 |4+sizex%|:wimp%!1|
|000015d0| 36 3d 77 69 6d 70 25 21 | 38 2b 73 69 7a 65 79 25 |6=wimp%!|8+sizey%|
|000015e0| 0d 07 62 26 20 77 69 6d | 70 25 21 32 30 3d 30 3a |..b& wim|p%!20=0:|
|000015f0| 77 69 6d 70 25 21 32 34 | 3d 30 3a 77 69 6d 70 25 |wimp%!24|=0:wimp%|
|00001600| 21 32 38 3d 2d 31 0d 07 | 6c 1d 20 f2 45 76 65 6e |!28=-1..|l. .Even|
|00001610| 74 5f 4f 70 65 6e 57 69 | 6e 64 6f 77 28 77 69 6d |t_OpenWi|ndow(wim|
|00001620| 70 25 29 0d 07 76 05 e1 | 0d 07 80 05 3a 0d 07 8a |p%)..v..|....:...|
|00001630| 26 dd f2 57 69 6d 70 5f | 47 65 74 4d 6f 64 65 28 |&..Wimp_|GetMode(|
|00001640| f8 20 77 69 64 74 68 25 | 2c f8 20 68 65 69 67 68 |. width%|,. heigh|
|00001650| 74 25 29 0d 07 94 0b 20 | ea 75 25 2c 76 25 0d 07 |t%).... |.u%,v%..|
|00001660| 9e 25 20 c8 99 22 4f 53 | 5f 52 65 61 64 4d 6f 64 |.% .."OS|_ReadMod|
|00001670| 65 56 61 72 69 61 62 6c | 65 22 2c eb 2c 34 b8 2c |eVariabl|e",.,4.,|
|00001680| 2c 75 25 0d 07 a8 25 20 | c8 99 22 4f 53 5f 52 65 |,u%...% |.."OS_Re|
|00001690| 61 64 4d 6f 64 65 56 61 | 72 69 61 62 6c 65 22 2c |adModeVa|riable",|
|000016a0| eb 2c 35 b8 2c 2c 76 25 | 0d 07 b2 2a 20 c8 99 22 |.,5.,,v%|...* .."|
|000016b0| 4f 53 5f 52 65 61 64 4d | 6f 64 65 56 61 72 69 61 |OS_ReadM|odeVaria|
|000016c0| 62 6c 65 22 2c eb 2c 31 | 31 b8 2c 2c 77 69 64 74 |ble",.,1|1.,,widt|
|000016d0| 68 25 0d 07 bc 2b 20 c8 | 99 22 4f 53 5f 52 65 61 |h%...+ .|."OS_Rea|
|000016e0| 64 4d 6f 64 65 56 61 72 | 69 61 62 6c 65 22 2c eb |dModeVar|iable",.|
|000016f0| 2c 31 32 b8 2c 2c 68 65 | 69 67 68 74 25 0d 07 c6 |,12.,,he|ight%...|
|00001700| 32 20 77 69 64 74 68 25 | 3d 28 77 69 64 74 68 25 |2 width%|=(width%|
|00001710| 2b 31 29 3c 3c 75 25 3a | 68 65 69 67 68 74 25 3d |+1)<<u%:|height%=|
|00001720| 28 68 65 69 67 68 74 25 | 2b 31 29 3c 3c 76 25 0d |(height%|+1)<<v%.|
|00001730| 07 d0 05 e1 0d 07 da 05 | 3a 0d 07 e4 26 dd f2 57 |........|:...&..W|
|00001740| 69 6d 70 5f 57 69 6e 64 | 6f 77 4d 6f 75 73 65 42 |imp_Wind|owMouseB|
|00001750| 6f 75 6e 64 72 79 28 77 | 69 6e 64 6f 77 25 29 0d |oundry(w|indow%).|
|00001760| 07 ee 12 21 77 69 6d 70 | 25 3d 77 69 6e 64 6f 77 |...!wimp|%=window|
|00001770| 25 0d 07 f8 23 c8 99 20 | 22 57 69 6d 70 5f 47 65 |%...#.. |"Wimp_Ge|
|00001780| 74 57 69 6e 64 6f 77 53 | 74 61 74 65 22 2c 2c 77 |tWindowS|tate",,w|
|00001790| 69 6d 70 25 0d 08 02 0f | 77 69 6d 70 25 21 32 38 |imp%....|wimp%!28|
|000017a0| 3d 2d 31 0d 08 0c 3e c8 | 97 20 c8 93 20 77 69 6d |=-1...>.|. .. wim|
|000017b0| 70 25 21 34 2c 77 69 6d | 70 25 21 38 2c 77 69 6d |p%!4,wim|p%!8,wim|
|000017c0| 70 25 21 31 32 2d 77 69 | 6d 70 25 21 34 2c 77 69 |p%!12-wi|mp%!4,wi|
|000017d0| 6d 70 25 21 31 36 2d 77 | 69 6d 70 25 21 38 2b 34 |mp%!16-w|imp%!8+4|
|000017e0| 30 0d 08 16 1c f2 45 76 | 65 6e 74 5f 4f 70 65 6e |0.....Ev|ent_Open|
|000017f0| 57 69 6e 64 6f 77 28 77 | 69 6d 70 25 29 0d 08 20 |Window(w|imp%).. |
|00001800| 05 e1 0d 08 2a 05 3a 0d | 08 34 06 f4 7c 0d 08 3e |....*.:.|.4..|..>|
|00001810| 06 f4 7c 0d 08 48 06 f4 | 7c 0d 08 52 31 f4 7c 20 |..|..H..||..R1.| |
|00001820| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001830| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|00001840| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 08 5c 28 f4 7c |--------|--..\(.||
|00001850| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001860| 20 20 20 20 20 20 20 20 | 20 20 32 2e a0 49 63 6f | | 2..Ico|
|00001870| 6e 73 0d 08 66 31 f4 7c | 20 20 20 20 20 20 20 20 |ns..f1.|| |
|00001880| 20 20 20 20 20 20 20 20 | 20 20 2d 2d 2d 2d 2d 2d | | ------|
|00001890| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018a0| 2d 2d 2d 0d 08 70 06 f4 | 7c 0d 08 7a 06 f4 7c 0d |---..p..||..z..|.|
|000018b0| 08 84 3d f4 7c 20 20 20 | 20 20 20 20 20 20 20 20 |..=.| | |
|000018c0| 20 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | ------|--------|
|000018d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 08 8e 06 |--------|----....|
|000018f0| f4 7c 0d 08 98 28 f4 7c | 20 20 20 20 20 20 20 20 |.|...(.|| |
|00001900| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 50 72 | | Pr|
|00001910| 6f 63 65 64 75 72 65 73 | 20 3a 0d 08 a2 06 f4 7c |ocedures| :.....||
|00001920| 0d 08 ac 2b f4 7c 20 20 | 20 20 20 20 20 20 20 20 |...+.| | |
|00001930| 20 20 20 20 46 4e 57 69 | 6d 70 5f 49 63 6f 6e 42 | FNWi|mp_IconB|
|00001940| 61 72 28 53 70 72 69 74 | 65 24 29 0d 08 b6 3c f4 |ar(Sprit|e$)...<.|
|00001950| 7c 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 50 || | P|
|00001960| 52 4f 43 57 69 6d 70 5f | 49 63 6f 6e 43 61 72 65 |ROCWimp_|IconCare|
|00001970| 74 28 77 69 6e 64 6f 77 | 25 2c 69 63 6f 6e 25 2c |t(window|%,icon%,|
|00001980| 63 68 61 72 73 25 29 0d | 08 c0 32 f4 7c 20 20 20 |chars%).|..2.| |
|00001990| 20 20 20 20 20 20 20 20 | 20 20 20 46 4e 57 69 6d | | FNWim|
|000019a0| 70 5f 49 63 6f 6e 54 65 | 78 74 28 77 69 6e 64 6f |p_IconTe|xt(windo|
|000019b0| 77 25 2c 69 63 6f 6e 25 | 29 0d 08 ca 38 f4 7c 20 |w%,icon%|)...8.| |
|000019c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 46 4e 57 | | FNW|
|000019d0| 69 6d 70 5f 49 63 6f 6e | 56 61 6c 69 64 61 74 69 |imp_Icon|Validati|
|000019e0| 6f 6e 28 77 69 6e 64 6f | 77 25 2c 69 63 6f 6e 25 |on(windo|w%,icon%|
|000019f0| 29 0d 08 d4 37 f4 7c 20 | 20 20 20 20 20 20 20 20 |)...7.| | |
|00001a00| 20 20 20 20 20 50 52 4f | 43 57 69 6d 70 5f 49 63 | PRO|CWimp_Ic|
|00001a10| 6f 6e 44 69 73 61 62 6c | 65 28 77 69 6e 64 6f 77 |onDisabl|e(window|
|00001a20| 25 2c 69 63 6f 6e 25 29 | 0d 08 de 36 f4 7c 20 20 |%,icon%)|...6.| |
|00001a30| 20 20 20 20 20 20 20 20 | 20 20 20 20 50 52 4f 43 | | PROC|
|00001a40| 57 69 6d 70 5f 49 63 6f | 6e 45 6e 61 62 6c 65 28 |Wimp_Ico|nEnable(|
|00001a50| 77 69 6e 64 6f 77 25 2c | 69 63 6f 6e 25 29 0d 08 |window%,|icon%)..|
|00001a60| e8 3f f4 7c 20 20 20 20 | 20 20 20 20 20 20 20 20 |.?.| | |
|00001a70| 20 20 46 4e 57 69 6d 70 | 5f 49 63 6f 6e 50 75 74 | FNWimp|_IconPut|
|00001a80| 53 70 72 69 74 65 28 77 | 69 6e 64 6f 77 25 2c 69 |Sprite(w|indow%,i|
|00001a90| 63 6f 6e 25 2c 73 70 72 | 69 74 65 24 29 0d 08 f2 |con%,spr|ite$)...|
|00001aa0| 3d f4 7c 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |=.| | |
|00001ab0| 20 50 52 4f 43 57 69 6d | 70 5f 49 63 6f 6e 50 75 | PROCWim|p_IconPu|
|00001ac0| 74 54 65 78 74 28 77 69 | 6e 64 6f 77 25 2c 69 63 |tText(wi|ndow%,ic|
|00001ad0| 6f 6e 25 2c 74 65 78 74 | 24 29 0d 08 fc 2f f4 7c |on%,text|$).../.||
|00001ae0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 50 52 | | PR|
|00001af0| 4f 43 57 69 6d 70 5f 49 | 63 6f 6e 49 6e 74 65 72 |OCWimp_I|conInter|
|00001b00| 66 61 63 65 53 74 61 72 | 74 0d 09 06 30 f4 7c 20 |faceStar|t...0.| |
|00001b10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 50 52 4f | | PRO|
|00001b20| 43 57 69 6d 70 5f 49 63 | 6f 6e 49 6e 74 65 72 66 |CWimp_Ic|onInterf|
|00001b30| 61 63 65 46 69 6e 69 73 | 68 0d 09 10 34 f4 7c 20 |aceFinis|h...4.| |
|00001b40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 46 4e 57 | | FNW|
|00001b50| 69 6d 70 5f 52 65 61 64 | 53 77 69 74 63 68 28 77 |imp_Read|Switch(w|
|00001b60| 69 6e 64 6f 77 25 2c 69 | 63 6f 6e 25 29 0d 09 1a |indow%,i|con%)...|
|00001b70| 3f f4 7c 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |?.| | |
|00001b80| 20 50 52 4f 43 57 69 6d | 70 5f 57 72 69 74 65 53 | PROCWim|p_WriteS|
|00001b90| 77 69 74 63 68 28 77 69 | 6e 64 6f 77 25 2c 69 63 |witch(wi|ndow%,ic|
|00001ba0| 6f 6e 25 2c 73 77 69 74 | 63 68 25 29 0d 09 24 04 |on%,swit|ch%)..$.|
|00001bb0| 0d 09 2e 06 f4 7c 0d 09 | 38 3d f4 7c 20 20 20 20 |.....|..|8=.| |
|00001bc0| 20 20 20 20 20 20 20 20 | 20 2d 2d 2d 2d 2d 2d 2d | | -------|
|00001bd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001be0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001bf0| 2d 2d 2d 0d 09 42 06 f4 | 7c 0d 09 4c 05 3a 0d 09 |---..B..||..L.:..|
|00001c00| 56 1c dd 20 a4 57 69 6d | 70 5f 49 63 6f 6e 42 61 |V.. .Wim|p_IconBa|
|00001c10| 72 28 53 70 72 69 74 65 | 24 29 0d 09 60 0b ea 20 |r(Sprite|$)..`.. |
|00001c20| 69 63 6f 6e 25 0d 09 6a | 0e 77 69 6d 70 25 21 30 |icon%..j|.wimp%!0|
|00001c30| 3d 2d 31 0d 09 74 1d 77 | 69 6d 70 25 21 34 3d 30 |=-1..t.w|imp%!4=0|
|00001c40| 20 20 20 20 20 3a 20 77 | 69 6d 70 25 21 38 3d 30 | : w|imp%!8=0|
|00001c50| 0d 09 7e 1d 77 69 6d 70 | 25 21 31 32 3d 36 38 20 |..~.wimp|%!12=68 |
|00001c60| 3a 20 77 69 6d 70 25 21 | 31 36 3d 36 38 0d 09 88 |: wimp%!|16=68...|
|00001c70| 12 77 69 6d 70 25 21 32 | 30 3d 26 33 30 30 32 0d |.wimp%!2|0=&3002.|
|00001c80| 09 92 17 24 28 77 69 6d | 70 25 2b 32 34 29 3d 53 |...$(wim|p%+24)=S|
|00001c90| 70 72 69 74 65 24 0d 09 | 9c 27 c8 99 20 22 57 69 |prite$..|.'.. "Wi|
|00001ca0| 6d 70 5f 43 72 65 61 74 | 65 49 63 6f 6e 22 2c 2c |mp_Creat|eIcon",,|
|00001cb0| 77 69 6d 70 25 20 b8 20 | 69 63 6f 6e 25 0d 09 a6 |wimp% . |icon%...|
|00001cc0| 0a 3d 69 63 6f 6e 25 0d | 09 b0 05 3a 0d 09 ba 2b |.=icon%.|...:...+|
|00001cd0| dd 20 f2 57 69 6d 70 5f | 49 63 6f 6e 43 61 72 65 |. .Wimp_|IconCare|
|00001ce0| 74 28 77 69 6e 64 6f 77 | 25 2c 69 63 6f 6e 25 2c |t(window|%,icon%,|
|00001cf0| 63 68 61 72 73 25 29 0d | 09 c4 38 c8 99 20 22 57 |chars%).|..8.. "W|
|00001d00| 69 6d 70 5f 53 65 74 43 | 61 72 65 74 50 6f 73 69 |imp_SetC|aretPosi|
|00001d10| 74 69 6f 6e 22 2c 77 69 | 6e 64 6f 77 25 2c 69 63 |tion",wi|ndow%,ic|
|00001d20| 6f 6e 25 2c 2c 2c 2d 31 | 2c 63 68 61 72 73 25 0d |on%,,,-1|,chars%.|
|00001d30| 09 ce 05 e1 0d 09 d8 05 | 3a 0d 09 e2 23 dd 20 a4 |........|:...#. .|
|00001d40| 57 69 6d 70 5f 49 63 6f | 6e 54 65 78 74 28 77 69 |Wimp_Ico|nText(wi|
|00001d50| 6e 64 6f 77 25 2c 69 63 | 6f 6e 25 29 0d 09 ec 23 |ndow%,ic|on%)...#|
|00001d60| 77 69 6d 70 25 21 30 3d | 77 69 6e 64 6f 77 25 20 |wimp%!0=|window% |
|00001d70| 3a 20 77 69 6d 70 25 21 | 34 3d 69 63 6f 6e 25 0d |: wimp%!|4=icon%.|
|00001d80| 09 f6 21 c8 99 20 22 57 | 69 6d 70 5f 47 65 74 49 |..!.. "W|imp_GetI|
|00001d90| 63 6f 6e 53 74 61 74 65 | 22 2c 2c 77 69 6d 70 25 |conState|",,wimp%|
|00001da0| 0d 0a 00 37 e7 20 28 28 | 77 69 6d 70 25 21 32 34 |...7. ((|wimp%!24|
|00001db0| 29 20 80 20 26 31 30 30 | 29 3d 30 20 85 20 31 2c |) . &100|)=0 . 1,|
|00001dc0| 22 49 63 6f 6e 20 69 73 | 6e 27 74 20 69 6e 64 69 |"Icon is|n't indi|
|00001dd0| 72 65 63 74 65 64 22 0d | 0a 0a 10 3d 24 28 77 69 |rected".|...=$(wi|
|00001de0| 6d 70 25 21 32 38 29 0d | 0a 14 05 3a 0d 0a 1e 29 |mp%!28).|...:...)|
|00001df0| dd 20 a4 57 69 6d 70 5f | 49 63 6f 6e 56 61 6c 69 |. .Wimp_|IconVali|
|00001e00| 64 61 74 69 6f 6e 28 77 | 69 6e 64 6f 77 25 2c 69 |dation(w|indow%,i|
|00001e10| 63 6f 6e 25 29 0d 0a 28 | 23 77 69 6d 70 25 21 30 |con%)..(|#wimp%!0|
|00001e20| 3d 77 69 6e 64 6f 77 25 | 20 3a 20 77 69 6d 70 25 |=window%| : wimp%|
|00001e30| 21 34 3d 69 63 6f 6e 25 | 0d 0a 32 21 c8 99 20 22 |!4=icon%|..2!.. "|
|00001e40| 57 69 6d 70 5f 47 65 74 | 49 63 6f 6e 53 74 61 74 |Wimp_Get|IconStat|
|00001e50| 65 22 2c 2c 77 69 6d 70 | 25 0d 0a 3c 37 e7 20 28 |e",,wimp|%..<7. (|
|00001e60| 28 77 69 6d 70 25 21 32 | 34 29 20 80 20 26 31 30 |(wimp%!2|4) . &10|
|00001e70| 30 29 3d 30 20 85 20 31 | 2c 22 49 63 6f 6e 20 69 |0)=0 . 1|,"Icon i|
|00001e80| 73 6e 27 74 20 69 6e 64 | 69 72 65 63 74 65 64 22 |sn't ind|irected"|
|00001e90| 0d 0a 46 10 3d 24 28 77 | 69 6d 70 25 21 33 32 29 |..F.=$(w|imp%!32)|
|00001ea0| 0d 0a 50 05 3a 0d 0a 5a | 26 dd 20 f2 57 69 6d 70 |..P.:..Z|&. .Wimp|
|00001eb0| 5f 49 63 6f 6e 44 69 73 | 61 62 6c 65 28 77 69 6e |_IconDis|able(win|
|00001ec0| 64 6f 77 25 2c 69 63 6f | 6e 25 29 0d 0a 64 23 77 |dow%,ico|n%)..d#w|
|00001ed0| 69 6d 70 25 21 30 3d 77 | 69 6e 64 6f 77 25 20 3a |imp%!0=w|indow% :|
|00001ee0| 20 77 69 6d 70 25 21 34 | 3d 69 63 6f 6e 25 0d 0a | wimp%!4|=icon%..|
|00001ef0| 6e 24 77 69 6d 70 25 21 | 38 3d 31 3c 3c 32 32 20 |n$wimp%!|8=1<<22 |
|00001f00| 20 20 3a 20 77 69 6d 70 | 25 21 31 32 3d 31 3c 3c | : wimp|%!12=1<<|
|00001f10| 32 32 0d 0a 78 21 c8 99 | 20 22 57 69 6d 70 5f 53 |22..x!..| "Wimp_S|
|00001f20| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 2c 77 69 |etIconSt|ate",,wi|
|00001f30| 6d 70 25 0d 0a 82 05 e1 | 0d 0a 8c 05 3a 0d 0a 96 |mp%.....|....:...|
|00001f40| 25 dd 20 f2 57 69 6d 70 | 5f 49 63 6f 6e 45 6e 61 |%. .Wimp|_IconEna|
|00001f50| 62 6c 65 28 77 69 6e 64 | 6f 77 25 2c 69 63 6f 6e |ble(wind|ow%,icon|
|00001f60| 25 29 0d 0a a0 23 77 69 | 6d 70 25 21 30 3d 77 69 |%)...#wi|mp%!0=wi|
|00001f70| 6e 64 6f 77 25 20 3a 20 | 77 69 6d 70 25 21 34 3d |ndow% : |wimp%!4=|
|00001f80| 69 63 6f 6e 25 0d 0a aa | 24 77 69 6d 70 25 21 38 |icon%...|$wimp%!8|
|00001f90| 3d 30 20 20 20 20 20 20 | 20 3a 20 77 69 6d 70 25 |=0 | : wimp%|
|00001fa0| 21 31 32 3d 31 3c 3c 32 | 32 0d 0a b4 21 c8 99 20 |!12=1<<2|2...!.. |
|00001fb0| 22 57 69 6d 70 5f 53 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Se|tIconSta|
|00001fc0| 74 65 22 2c 2c 77 69 6d | 70 25 0d 0a be 05 e1 0d |te",,wim|p%......|
|00001fd0| 0a c8 05 3a 0d 0a d2 30 | dd 20 a4 57 69 6d 70 5f |...:...0|. .Wimp_|
|00001fe0| 49 63 6f 6e 50 75 74 53 | 70 72 69 74 65 28 77 69 |IconPutS|prite(wi|
|00001ff0| 6e 64 6f 77 25 2c 69 63 | 6f 6e 25 2c 73 70 72 69 |ndow%,ic|on%,spri|
|00002000| 74 65 24 29 0d 0a dc 21 | 77 69 6d 70 25 21 30 3d |te$)...!|wimp%!0=|
|00002010| 77 69 6e 64 6f 77 25 3a | 77 69 6d 70 25 21 34 3d |window%:|wimp%!4=|
|00002020| 69 63 6f 6e 25 0d 0a e6 | 21 c8 99 20 22 57 69 6d |icon%...|!.. "Wim|
|00002030| 70 5f 47 65 74 49 63 6f | 6e 53 74 61 74 65 22 2c |p_GetIco|nState",|
|00002040| 2c 77 69 6d 70 25 0d 0a | f0 1f c8 99 20 22 57 69 |,wimp%..|.... "Wi|
|00002050| 6d 70 5f 44 65 6c 65 74 | 65 49 63 6f 6e 22 2c 2c |mp_Delet|eIcon",,|
|00002060| 77 69 6d 70 25 0d 0a fa | 3d 77 69 6d 70 25 21 34 |wimp%...|=wimp%!4|
|00002070| 3d 77 69 6d 70 25 21 38 | 20 20 20 3a 20 77 69 6d |=wimp%!8| : wim|
|00002080| 70 25 21 38 3d 77 69 6d | 70 25 21 31 32 20 20 3a |p%!8=wim|p%!12 :|
|00002090| 20 77 69 6d 70 25 21 31 | 32 3d 77 69 6d 70 25 21 | wimp%!1|2=wimp%!|
|000020a0| 31 36 0d 0b 04 3f 77 69 | 6d 70 25 21 31 36 3d 77 |16...?wi|mp%!16=w|
|000020b0| 69 6d 70 25 21 32 30 20 | 3a 20 77 69 6d 70 25 21 |imp%!20 |: wimp%!|
|000020c0| 32 30 3d 77 69 6d 70 25 | 21 32 34 20 3a 20 24 28 |20=wimp%|!24 : $(|
|000020d0| 77 69 6d 70 25 2b 32 34 | 29 3d 73 70 72 69 74 65 |wimp%+24|)=sprite|
|000020e0| 24 0d 0b 0e 27 c8 99 20 | 22 57 69 6d 70 5f 43 72 |$...'.. |"Wimp_Cr|
|000020f0| 65 61 74 65 49 63 6f 6e | 22 2c 2c 77 69 6d 70 25 |eateIcon|",,wimp%|
|00002100| 20 b8 20 69 63 6f 6e 25 | 0d 0b 18 0a 3d 69 63 6f | . icon%|....=ico|
|00002110| 6e 25 0d 0b 22 05 3a 0d | 0b 2c 2c dd 20 f2 57 69 |n%..".:.|.,,. .Wi|
|00002120| 6d 70 5f 49 63 6f 6e 50 | 75 74 54 65 78 74 28 77 |mp_IconP|utText(w|
|00002130| 69 6e 64 6f 77 25 2c 69 | 63 6f 6e 25 2c 74 65 78 |indow%,i|con%,tex|
|00002140| 74 24 29 0d 0b 36 23 77 | 69 6d 70 25 21 30 3d 77 |t$)..6#w|imp%!0=w|
|00002150| 69 6e 64 6f 77 25 20 3a | 20 77 69 6d 70 25 21 34 |indow% :| wimp%!4|
|00002160| 3d 69 63 6f 6e 25 0d 0b | 40 21 c8 99 20 22 57 69 |=icon%..|@!.. "Wi|
|00002170| 6d 70 5f 47 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_GetIc|onState"|
|00002180| 2c 2c 77 69 6d 70 25 0d | 0b 4a 37 e7 20 28 28 77 |,,wimp%.|.J7. ((w|
|00002190| 69 6d 70 25 21 32 34 29 | 20 80 20 26 31 30 30 29 |imp%!24)| . &100)|
|000021a0| 3d 30 20 85 20 31 2c 22 | 49 63 6f 6e 20 69 73 6e |=0 . 1,"|Icon isn|
|000021b0| 27 74 20 69 6e 64 69 72 | 65 63 74 65 64 22 0d 0b |'t indir|ected"..|
|000021c0| 54 15 24 28 77 69 6d 70 | 25 21 32 38 29 3d 74 65 |T.$(wimp|%!28)=te|
|000021d0| 78 74 24 0d 0b 5e 23 77 | 69 6d 70 25 21 30 3d 77 |xt$..^#w|imp%!0=w|
|000021e0| 69 6e 64 6f 77 25 20 3a | 20 77 69 6d 70 25 21 34 |indow% :| wimp%!4|
|000021f0| 3d 69 63 6f 6e 25 0d 0b | 68 1a 77 69 6d 70 25 21 |=icon%..|h.wimp%!|
|00002200| 38 3d 30 20 3a 20 77 69 | 6d 70 25 21 31 32 3d 30 |8=0 : wi|mp%!12=0|
|00002210| 0d 0b 72 21 c8 99 20 22 | 57 69 6d 70 5f 53 65 74 |..r!.. "|Wimp_Set|
|00002220| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 77 69 6d 70 |IconStat|e",,wimp|
|00002230| 25 0d 0b 7c 05 e1 0d 0b | 86 05 3a 0d 0b 90 1e dd |%..|....|..:.....|
|00002240| 20 f2 57 69 6d 70 5f 49 | 63 6f 6e 49 6e 74 65 72 | .Wimp_I|conInter|
|00002250| 66 61 63 65 53 74 61 72 | 74 0d 0b 9a 1e c8 99 22 |faceStar|t......"|
|00002260| 57 69 6d 70 5f 42 6f 72 | 64 65 72 49 63 6f 6e 22 |Wimp_Bor|derIcon"|
|00002270| 2c 2c 77 69 6d 70 25 0d | 0b a4 05 e1 0d 0b ae 05 |,,wimp%.|........|
|00002280| 3a 0d 0b b8 1f dd 20 f2 | 57 69 6d 70 5f 49 63 6f |:..... .|Wimp_Ico|
|00002290| 6e 49 6e 74 65 72 66 61 | 63 65 46 69 6e 69 73 68 |nInterfa|ceFinish|
|000022a0| 0d 0b c2 0d 77 69 6d 70 | 25 21 38 3d 30 0d 0b cc |....wimp|%!8=0...|
|000022b0| 1e c8 99 22 57 69 6d 70 | 5f 42 6f 72 64 65 72 49 |..."Wimp|_BorderI|
|000022c0| 63 6f 6e 22 2c 2c 77 69 | 6d 70 25 0d 0b d6 05 e1 |con",,wi|mp%.....|
|000022d0| 0d 0b e0 05 3a 0d 0b ea | 24 dd a4 57 69 6d 70 5f |....:...|$..Wimp_|
|000022e0| 52 65 61 64 53 77 69 74 | 63 68 28 77 69 6e 64 6f |ReadSwit|ch(windo|
|000022f0| 77 25 2c 69 63 6f 6e 25 | 29 0d 0b f4 13 20 21 77 |w%,icon%|).... !w|
|00002300| 69 6d 70 25 3d 77 69 6e | 64 6f 77 25 0d 0b fe 12 |imp%=win|dow%....|
|00002310| 20 77 69 6d 70 25 21 34 | 3d 69 63 6f 6e 25 0d 0c | wimp%!4|=icon%..|
|00002320| 08 21 20 c8 99 22 57 69 | 6d 70 5f 47 65 74 49 63 |.! .."Wi|mp_GetIc|
|00002330| 6f 6e 53 74 61 74 65 22 | 2c 2c 77 69 6d 70 25 0d |onState"|,,wimp%.|
|00002340| 0c 12 1c 3d 28 28 77 69 | 6d 70 25 21 32 34 20 80 |...=((wi|mp%!24 .|
|00002350| 20 31 3c 3c 32 31 29 3c | 3e 30 29 0d 0c 1c 05 3a | 1<<21)<|>0)....:|
|00002360| 0d 0c 26 2d dd f2 57 69 | 6d 70 5f 57 72 69 74 65 |..&-..Wi|mp_Write|
|00002370| 53 77 69 74 63 68 28 77 | 69 6e 64 6f 77 25 2c 69 |Switch(w|indow%,i|
|00002380| 63 6f 6e 25 2c 73 77 69 | 74 63 68 25 29 0d 0c 30 |con%,swi|tch%)..0|
|00002390| 13 20 21 77 69 6d 70 25 | 3d 77 69 6e 64 6f 77 25 |. !wimp%|=window%|
|000023a0| 0d 0c 3a 12 20 77 69 6d | 70 25 21 34 3d 69 63 6f |..:. wim|p%!4=ico|
|000023b0| 6e 25 0d 0c 44 21 20 c8 | 99 22 57 69 6d 70 5f 47 |n%..D! .|."Wimp_G|
|000023c0| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 2c 77 69 |etIconSt|ate",,wi|
|000023d0| 6d 70 25 0d 0c 4e 29 20 | e7 20 73 77 69 74 63 68 |mp%..N) |. switch|
|000023e0| 25 3c 3e 28 28 77 69 6d | 70 25 21 32 34 20 80 20 |%<>((wim|p%!24 . |
|000023f0| 31 3c 3c 32 31 29 3c 3e | 30 29 20 8c 0d 0c 58 1f |1<<21)<>|0) ...X.|
|00002400| 20 20 20 77 69 6d 70 25 | 21 38 3d 31 3c 3c 32 31 | wimp%|!8=1<<21|
|00002410| 3a 77 69 6d 70 25 21 31 | 32 3d 30 0d 0c 62 06 20 |:wimp%!1|2=0..b. |
|00002420| cc 0d 0c 6c 1b 20 20 20 | 77 69 6d 70 25 21 38 3d |...l. |wimp%!8=|
|00002430| 30 3a 77 69 6d 70 25 21 | 31 32 3d 30 0d 0c 76 06 |0:wimp%!|12=0..v.|
|00002440| 20 cd 0d 0c 80 21 20 c8 | 99 22 57 69 6d 70 5f 53 | ....! .|."Wimp_S|
|00002450| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 2c 77 69 |etIconSt|ate",,wi|
|00002460| 6d 70 25 0d 0c 8a 05 e1 | 0d 0c 94 05 3a 0d 0c 9e |mp%.....|....:...|
|00002470| 06 f4 7c 0d 0c a8 06 f4 | 7c 0d 0c b2 06 f4 7c 0d |..|.....||.....|.|
|00002480| 0c bc 31 f4 7c 20 20 20 | 20 20 20 20 20 20 20 20 |..1.| | |
|00002490| 20 20 20 20 20 20 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -|--------|
|000024a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000024b0| 0d 0c c6 28 f4 7c 20 20 | 20 20 20 20 20 20 20 20 |...(.| | |
|000024c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000024d0| 33 2e a0 4d 65 6e 75 73 | 0d 0c d0 31 f4 7c 20 20 |3..Menus|...1.| |
|000024e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000024f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002500| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 0c da 06 f4 7c 0d |--------|-.....|.|
|00002510| 0c e4 06 f4 7c 0d 0c ee | 3f f4 7c 20 20 20 20 20 |....|...|?.| |
|00002520| 20 20 20 20 20 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | --|--------|
|00002530| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002540| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002550| 2d 2d 2d 2d 0d 0c f8 06 | f4 7c 0d 0d 02 28 f4 7c |----....|.|...(.||
|00002560| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002570| 20 20 20 20 20 20 50 72 | 6f 63 65 64 75 72 65 73 | Pr|ocedures|
|00002580| 20 3a 0d 0d 0c 06 f4 7c | 0d 0d 16 06 f4 7c 0d 0d | :.....||.....|..|
|00002590| 20 2e f4 7c 20 20 20 20 | 20 20 20 20 20 20 20 20 | ..| | |
|000025a0| 50 52 4f 43 57 69 6d 70 | 5f 4d 65 6e 75 41 64 6a |PROCWimp|_MenuAdj|
|000025b0| 75 73 74 4f 6e 28 6d 65 | 6e 75 25 29 0d 0d 2a 2b |ustOn(me|nu%)..*+|
|000025c0| f4 7c 20 20 20 20 20 20 | 20 20 20 20 20 20 46 4e |.| | FN|
|000025d0| 57 69 6d 70 5f 4d 65 6e | 75 43 68 6f 69 63 65 28 |Wimp_Men|uChoice(|
|000025e0| 6c 65 76 65 6c 25 29 0d | 0d 34 2a f4 7c 20 20 20 |level%).|.4*.| |
|000025f0| 20 20 20 20 20 20 20 20 | 20 46 4e 57 69 6d 70 5f | | FNWimp_|
|00002600| 4d 65 6e 75 43 72 65 61 | 74 65 28 6d 65 6e 75 24 |MenuCrea|te(menu$|
|00002610| 29 0d 0d 3e 24 f4 7c 20 | 20 20 20 20 20 20 20 20 |)..>$.| | |
|00002620| 20 20 20 46 4e 57 69 6d | 70 5f 4d 65 6e 75 43 6f | FNWim|p_MenuCo|
|00002630| 6c 6f 75 72 73 0d 0d 48 | 32 f4 7c 20 20 20 20 20 |lours..H|2.| |
|00002640| 20 20 20 20 20 20 20 46 | 4e 57 69 6d 70 5f 4d 65 | F|NWimp_Me|
|00002650| 6e 75 43 72 65 61 74 65 | 43 6f 6c 6f 75 72 73 28 |nuCreate|Colours(|
|00002660| 74 69 74 6c 65 24 29 0d | 0d 52 2f f4 7c 20 20 20 |title$).|.R/.| |
|00002670| 20 20 20 20 20 20 20 20 | 20 46 4e 57 69 6d 70 5f | | FNWimp_|
|00002680| 4d 65 6e 75 4e 6f 4f 66 | 45 6e 74 72 69 65 73 28 |MenuNoOf|Entries(|
|00002690| 6d 65 6e 75 24 29 0d 0d | 5c 44 f4 7c 20 20 20 20 |menu$)..|\D.| |
|000026a0| 20 20 20 20 20 20 20 20 | 50 52 4f 43 57 69 6d 70 | |PROCWimp|
|000026b0| 5f 4d 65 6e 75 42 61 63 | 6b 47 72 6f 75 6e 64 43 |_MenuBac|kGroundC|
|000026c0| 6f 6c 6f 75 72 28 6d 65 | 6e 75 25 2c 69 74 65 6d |olour(me|nu%,item|
|000026d0| 25 2c 63 6f 6c 6f 75 72 | 25 29 0d 0d 66 32 f4 7c |%,colour|%)..f2.||
|000026e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 50 52 4f 43 | | PROC|
|000026f0| 57 69 6d 70 5f 4d 65 6e | 75 43 65 6e 74 72 65 28 |Wimp_Men|uCentre(|
|00002700| 6d 65 6e 75 25 2c 69 74 | 65 6d 25 29 0d 0d 70 24 |menu%,it|em%)..p$|
|00002710| f4 7c 20 20 20 20 20 20 | 20 20 20 20 20 20 50 52 |.| | PR|
|00002720| 4f 43 57 69 6d 70 5f 4d | 65 6e 75 43 6c 6f 73 65 |OCWimp_M|enuClose|
|00002730| 0d 0d 7a 33 f4 7c 20 20 | 20 20 20 20 20 20 20 20 |..z3.| | |
|00002740| 20 20 50 52 4f 43 57 69 | 6d 70 5f 4d 65 6e 75 44 | PROCWi|mp_MenuD|
|00002750| 69 73 61 62 6c 65 28 6d | 65 6e 75 25 2c 69 74 65 |isable(m|enu%,ite|
|00002760| 6d 25 29 0d 0d 84 36 f4 | 7c 20 20 20 20 20 20 20 |m%)...6.|| |
|00002770| 20 20 20 20 20 50 52 4f | 43 57 69 6d 70 5f 4d 65 | PRO|CWimp_Me|
|00002780| 6e 75 44 6f 74 74 65 64 | 4c 69 6e 65 28 6d 65 6e |nuDotted|Line(men|
|00002790| 75 25 2c 69 74 65 6d 25 | 29 0d 0d 8e 32 f4 7c 20 |u%,item%|)...2.| |
|000027a0| 20 20 20 20 20 20 20 20 | 20 20 20 50 52 4f 43 57 | | PROCW|
|000027b0| 69 6d 70 5f 4d 65 6e 75 | 45 6e 61 62 6c 65 28 6d |imp_Menu|Enable(m|
|000027c0| 65 6e 75 25 2c 69 74 65 | 6d 25 29 0d 0d 98 44 f4 |enu%,ite|m%)...D.|
|000027d0| 7c 20 20 20 20 20 20 20 | 20 20 20 20 20 50 52 4f || | PRO|
|000027e0| 43 57 69 6d 70 5f 4d 65 | 6e 75 46 6f 72 65 67 72 |CWimp_Me|nuForegr|
|000027f0| 6f 75 6e 64 43 6f 6c 6f | 75 72 28 6d 65 6e 75 25 |oundColo|ur(menu%|
|00002800| 2c 69 74 65 6d 25 2c 63 | 6f 6c 6f 75 72 25 29 0d |,item%,c|olour%).|
|00002810| 0d a2 38 f4 7c 20 20 20 | 20 20 20 20 20 20 20 20 |..8.| | |
|00002820| 20 50 52 4f 43 57 69 6d | 70 5f 4d 65 6e 75 47 6c | PROCWim|p_MenuGl|
|00002830| 75 65 28 6d 65 6e 75 31 | 25 2c 69 74 65 6d 25 2c |ue(menu1|%,item%,|
|00002840| 6d 65 6e 75 32 25 29 0d | 0d ac 36 f4 7c 20 20 20 |menu2%).|..6.| |
|00002850| 20 20 20 20 20 20 20 20 | 20 50 52 4f 43 57 69 6d | | PROCWim|
|00002860| 70 5f 4d 65 6e 75 49 74 | 65 6d 28 6d 65 6e 75 25 |p_MenuIt|em(menu%|
|00002870| 2c 69 74 65 6d 25 2c 69 | 74 65 6d 24 29 0d 0d b6 |,item%,i|tem$)...|
|00002880| 33 f4 7c 20 20 20 20 20 | 20 20 20 20 20 20 20 50 |3.| | P|
|00002890| 52 4f 43 57 69 6d 70 5f | 4d 65 6e 75 4d 65 73 73 |ROCWimp_|MenuMess|
|000028a0| 61 67 65 28 6d 65 6e 75 | 25 2c 69 74 65 6d 25 29 |age(menu|%,item%)|
|000028b0| 0d 0d c0 31 f4 7c 20 20 | 20 20 20 20 20 20 20 20 |...1.| | |
|000028c0| 20 20 50 52 4f 43 57 69 | 6d 70 5f 4d 65 6e 75 50 | PROCWi|mp_MenuP|
|000028d0| 6f 70 55 70 28 4d 65 6e | 75 25 2c 78 25 2c 79 25 |opUp(Men|u%,x%,y%|
|000028e0| 29 0d 0d ca 2e f4 7c 20 | 20 20 20 20 20 20 20 20 |).....| | |
|000028f0| 20 20 20 50 52 4f 43 57 | 69 6d 70 5f 4d 65 6e 75 | PROCW|imp_Menu|
|00002900| 50 6f 70 55 70 42 61 72 | 28 78 25 2c 79 25 29 0d |PopUpBar|(x%,y%).|
|00002910| 0d d4 30 f4 7c 20 20 20 | 20 20 20 20 20 20 20 20 |..0.| | |
|00002920| 20 50 52 4f 43 57 69 6d | 70 5f 4d 65 6e 75 54 69 | PROCWim|p_MenuTi|
|00002930| 63 6b 28 6d 65 6e 75 25 | 2c 69 74 65 6d 25 29 0d |ck(menu%|,item%).|
|00002940| 0d de 32 f4 7c 20 20 20 | 20 20 20 20 20 20 20 20 |..2.| | |
|00002950| 20 50 52 4f 43 57 69 6d | 70 5f 4d 65 6e 75 54 69 | PROCWim|p_MenuTi|
|00002960| 74 6c 65 28 6d 65 6e 75 | 25 2c 74 69 74 6c 65 24 |tle(menu|%,title$|
|00002970| 29 0d 0d e8 4c f4 7c 20 | 20 20 20 20 20 20 20 20 |)...L.| | |
|00002980| 20 20 20 50 52 4f 43 57 | 69 6d 70 5f 4d 65 6e 75 | PROCW|imp_Menu|
|00002990| 57 72 69 74 65 28 6d 65 | 6e 75 25 2c 69 74 65 6d |Write(me|nu%,item|
|000029a0| 25 2c 62 75 66 66 65 72 | 25 2c 76 61 6c 25 2c 42 |%,buffer|%,val%,B|
|000029b0| 75 66 66 65 72 4c 65 6e | 67 74 68 25 29 0d 0d f2 |ufferLen|gth%)...|
|000029c0| 06 f4 7c 0d 0d fc 3f f4 | 7c 20 20 20 20 20 20 20 |..|...?.|| |
|000029d0| 20 20 20 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | ----|--------|
|000029e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000029f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002a00| 2d 2d 0d 0e 06 06 f4 7c | 0d 0e 10 05 3a 0d 0e 1a |--.....||....:...|
|00002a10| 1f dd 20 f2 57 69 6d 70 | 5f 4d 65 6e 75 41 64 6a |.. .Wimp|_MenuAdj|
|00002a20| 75 73 74 4f 6e 28 6d 65 | 6e 75 25 29 0d 0e 24 2c |ustOn(me|nu%)..$,|
|00002a30| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 50 6f 69 6e |.. "Wimp|_GetPoin|
|00002a40| 74 65 72 49 6e 66 6f 22 | 2c 2c 70 6f 69 6e 74 65 |terInfo"|,,pointe|
|00002a50| 72 5f 62 6c 6f 63 6b 25 | 0d 0e 2e 5e e7 20 28 28 |r_block%|...^. ((|
|00002a60| 70 6f 69 6e 74 65 72 5f | 62 6c 6f 63 6b 25 21 38 |pointer_|block%!8|
|00002a70| 29 80 31 29 3d 31 20 8c | 20 c8 99 20 22 57 69 6d |).1)=1 .| .. "Wim|
|00002a80| 70 5f 43 72 65 61 74 65 | 4d 65 6e 75 22 2c 2c 6d |p_Create|Menu",,m|
|00002a90| 65 6e 75 25 2c 70 6f 69 | 6e 74 65 72 5f 62 6c 6f |enu%,poi|nter_blo|
|00002aa0| 63 6b 25 21 30 2c 70 6f | 69 6e 74 65 72 5f 62 6c |ck%!0,po|inter_bl|
|00002ab0| 6f 63 6b 25 21 34 0d 0e | 38 05 e1 0d 0e 42 05 3a |ock%!4..|8....B.:|
|00002ac0| 0d 0e 4c 1e dd 20 a4 57 | 69 6d 70 5f 4d 65 6e 75 |..L.. .W|imp_Menu|
|00002ad0| 43 68 6f 69 63 65 28 6c | 65 76 65 6c 25 29 0d 0e |Choice(l|evel%)..|
|00002ae0| 56 19 3d 28 77 69 6d 70 | 25 21 28 34 2a 6c 65 76 |V.=(wimp|%!(4*lev|
|00002af0| 65 6c 25 29 29 2b 31 0d | 0e 60 05 3a 0d 0e 6a 1d |el%))+1.|.`.:..j.|
|00002b00| dd 20 a4 57 69 6d 70 5f | 4d 65 6e 75 43 72 65 61 |. .Wimp_|MenuCrea|
|00002b10| 74 65 28 6d 65 6e 75 24 | 29 0d 0e 74 29 e7 20 6d |te(menu$|)..t). m|
|00002b20| 65 6e 75 24 3d 22 43 6f | 6c 6f 75 72 73 22 20 8c |enu$="Co|lours" .|
|00002b30| 3d a4 57 69 6d 70 5f 4d | 65 6e 75 43 6f 6c 6f 75 |=.Wimp_M|enuColou|
|00002b40| 72 73 0d 0e 7e 27 ea 20 | 6d 65 6e 75 25 2c 69 6e |rs..~'. |menu%,in|
|00002b50| 64 65 78 25 2c 77 69 64 | 74 68 25 2c 6c 65 6e 67 |dex%,wid|th%,leng|
|00002b60| 74 68 25 2c 6b 25 2c 73 | 25 0d 0e 88 2e de 20 6d |th%,k%,s|%..... m|
|00002b70| 65 6e 75 25 20 32 38 2b | a4 57 69 6d 70 5f 4d 65 |enu% 28+|.Wimp_Me|
|00002b80| 6e 75 4e 6f 4f 66 45 6e | 74 72 69 65 73 28 6d 65 |nuNoOfEn|tries(me|
|00002b90| 6e 75 24 29 2a 32 34 0d | 0e 92 37 6d 65 6e 75 25 |nu$)*24.|..7menu%|
|00002ba0| 3f 31 32 3d 37 20 20 20 | 3a 20 6d 65 6e 75 25 3f |?12=7 |: menu%?|
|00002bb0| 31 33 3d 32 20 20 3a 20 | 6d 65 6e 75 25 3f 31 34 |13=2 : |menu%?14|
|00002bc0| 3d 37 20 3a 6d 65 6e 75 | 25 3f 31 35 3d 30 0d 0e |=7 :menu|%?15=0..|
|00002bd0| 9c 2b 6d 65 6e 75 25 21 | 31 36 3d 31 34 30 20 3a |.+menu%!|16=140 :|
|00002be0| 20 6d 65 6e 75 25 21 32 | 30 3d 34 34 20 3a 20 6d | menu%!2|0=44 : m|
|00002bf0| 65 6e 75 25 21 32 34 3d | 30 0d 0e a6 13 69 6e 64 |enu%!24=|0....ind|
|00002c00| 65 78 25 3d 6d 65 6e 75 | 25 2b 32 38 0d 0e b0 20 |ex%=menu|%+28... |
|00002c10| 24 6d 65 6e 75 25 3d c0 | 6d 65 6e 75 24 2c a7 6d |$menu%=.|menu$,.m|
|00002c20| 65 6e 75 24 2c 22 5c 22 | 29 2d 31 29 0d 0e ba 23 |enu$,"\"|)-1)...#|
|00002c30| 77 69 64 74 68 25 3d a9 | 28 c0 6d 65 6e 75 24 2c |width%=.|(.menu$,|
|00002c40| a7 6d 65 6e 75 24 2c 22 | 5c 22 29 2d 31 29 29 0d |.menu$,"|\")-1)).|
|00002c50| 0e c4 24 6d 65 6e 75 24 | 2b 3d 22 5c 22 20 3a 20 |..$menu$|+="\" : |
|00002c60| 4d 65 6e 75 5f 4e 6f 4f | 66 45 6e 74 72 69 65 73 |Menu_NoO|fEntries|
|00002c70| 25 3d 30 0d 0e ce 10 c8 | 95 20 6d 65 6e 75 24 3c |%=0.....|. menu$<|
|00002c80| 3e 22 22 0d 0e d8 1f 6d | 65 6e 75 24 3d c1 6d 65 |>""....m|enu$=.me|
|00002c90| 6e 75 24 2c a7 6d 65 6e | 75 24 2c 22 5c 22 29 2b |nu$,.men|u$,"\")+|
|00002ca0| 31 29 0d 0e e2 0e c8 8e | 20 6d 65 6e 75 24 20 ca |1)......| menu$ .|
|00002cb0| 0d 0e ec 09 20 c9 20 22 | 22 0d 0e f6 08 20 7f 20 |.... . "|".... . |
|00002cc0| 3a 0d 0f 00 31 20 20 21 | 69 6e 64 65 78 25 3d 30 |:...1 !|index%=0|
|00002cd0| 20 3a 20 69 6e 64 65 78 | 25 21 34 3d 2d 31 20 3a | : index|%!4=-1 :|
|00002ce0| 20 69 6e 64 65 78 25 21 | 38 3d 26 37 30 30 30 30 | index%!|8=&70000|
|00002cf0| 32 31 0d 0f 0a 1b 20 20 | 6c 65 6e 67 74 68 25 3d |21.... |length%=|
|00002d00| a7 6d 65 6e 75 24 2c 22 | 5c 22 29 2d 31 0d 0f 14 |.menu$,"|\")-1...|
|00002d10| 1e 20 20 6b 25 3d a7 c0 | 6d 65 6e 75 24 2c 6c 65 |. k%=..|menu$,le|
|00002d20| 6e 67 74 68 25 29 2c 22 | 3e 22 29 0d 0f 1e 0d 20 |ngth%),"|>").... |
|00002d30| 20 c8 8e 20 6b 25 20 ca | 0d 0f 28 0a 20 20 20 c9 | .. k% .|..(. .|
|00002d40| 20 30 0d 0f 32 08 20 20 | 20 7f 0d 0f 3c 25 20 20 | 0..2. | ...<% |
|00002d50| 20 20 73 25 3d a0 28 c1 | 6d 65 6e 75 24 2c 6b 25 | s%=.(.|menu$,k%|
|00002d60| 2b 31 2c 6c 65 6e 67 74 | 68 25 2d 6b 25 29 29 0d |+1,lengt|h%-k%)).|
|00002d70| 0f 46 13 20 20 20 20 69 | 6e 64 65 78 25 21 34 3d |.F. i|ndex%!4=|
|00002d80| 73 25 0d 0f 50 14 20 20 | 20 20 6c 65 6e 67 74 68 |s%..P. | length|
|00002d90| 25 3d 6b 25 2d 31 0d 0f | 5a 07 20 20 cb 0d 0f 64 |%=k%-1..|Z. ...d|
|00002da0| 22 20 20 24 28 69 6e 64 | 65 78 25 2b 31 32 29 3d |" $(ind|ex%+12)=|
|00002db0| c0 6d 65 6e 75 24 2c 6c | 65 6e 67 74 68 25 29 0d |.menu$,l|ength%).|
|00002dc0| 0f 6e 27 20 20 e7 20 6c | 65 6e 67 74 68 25 3e 77 |.n' . l|ength%>w|
|00002dd0| 69 64 74 68 25 20 8c 20 | 77 69 64 74 68 25 3d 6c |idth% . |width%=l|
|00002de0| 65 6e 67 74 68 25 0d 0f | 78 10 20 20 69 6e 64 65 |ength%..|x. inde|
|00002df0| 78 25 2b 3d 32 34 0d 0f | 82 05 cb 0d 0f 8c 05 ce |x%+=24..|........|
|00002e00| 0d 0f 96 1a 6d 65 6e 75 | 25 21 31 36 3d 31 36 2a |....menu|%!16=16*|
|00002e10| 28 77 69 64 74 68 25 2b | 31 29 0d 0f a0 1f 69 6e |(width%+|1)....in|
|00002e20| 64 65 78 25 21 2d 32 34 | 3d 69 6e 64 65 78 25 21 |dex%!-24|=index%!|
|00002e30| 2d 32 34 20 84 20 26 38 | 30 0d 0f aa 0a 3d 6d 65 |-24 . &8|0....=me|
|00002e40| 6e 75 25 0d 0f b4 05 3a | 0d 0f be 17 dd 20 a4 57 |nu%....:|..... .W|
|00002e50| 69 6d 70 5f 4d 65 6e 75 | 43 6f 6c 6f 75 72 73 0d |imp_Menu|Colours.|
|00002e60| 0f c8 21 3d a4 57 69 6d | 70 5f 4d 65 6e 75 43 72 |..!=.Wim|p_MenuCr|
|00002e70| 65 61 74 65 43 6f 6c 6f | 75 72 73 28 22 20 22 29 |eateColo|urs(" ")|
|00002e80| 0d 0f d2 05 3a 0d 0f dc | 25 dd 20 a4 57 69 6d 70 |....:...|%. .Wimp|
|00002e90| 5f 4d 65 6e 75 43 72 65 | 61 74 65 43 6f 6c 6f 75 |_MenuCre|ateColou|
|00002ea0| 72 73 28 74 69 74 6c 65 | 24 29 0d 0f e6 13 ea 20 |rs(title|$)..... |
|00002eb0| 78 24 2c 6d 65 6e 25 2c | 6a 25 2c 69 25 0d 0f f0 |x$,men%,|j%,i%...|
|00002ec0| 36 78 24 3d 74 69 74 6c | 65 24 2b 22 5c 30 5c 31 |6x$=titl|e$+"\0\1|
|00002ed0| 5c 32 5c 33 5c 34 5c 35 | 5c 36 5c 37 5c 38 5c 39 |\2\3\4\5|\6\7\8\9|
|00002ee0| 5c 31 30 5c 31 31 5c 31 | 32 5c 31 33 5c 31 34 5c |\10\11\1|2\13\14\|
|00002ef0| 31 35 22 0d 0f fa 1d 6d | 65 6e 25 3d a4 57 69 6d |15"....m|en%=.Wim|
|00002f00| 70 5f 4d 65 6e 75 43 72 | 65 61 74 65 28 78 24 29 |p_MenuCr|eate(x$)|
|00002f10| 0d 10 04 0f e3 20 69 25 | 3d 30 20 b8 20 31 35 0d |..... i%|=0 . 15.|
|00002f20| 10 0e 0a c8 8e 20 b9 20 | ca 0d 10 18 28 c9 20 69 |..... . |....(. i|
|00002f30| 25 3c 34 2c 69 25 3d 39 | 2c 69 25 3d 31 32 2c 69 |%<4,i%=9|,i%=12,i|
|00002f40| 25 3d 31 34 2c 69 25 3d | 31 35 20 3a 20 6a 25 3d |%=14,i%=|15 : j%=|
|00002f50| 37 0d 10 22 0c 7f 20 3a | 20 6a 25 3d 30 0d 10 2c |7..".. :| j%=0..,|
|00002f60| 05 cb 0d 10 36 1c 6d 65 | 6e 25 3f 28 33 39 2b 69 |....6.me|n%?(39+i|
|00002f70| 25 2a 32 34 29 3d 69 25 | 2a 31 36 2b 6a 25 0d 10 |%*24)=i%|*16+j%..|
|00002f80| 40 1f f2 57 69 6d 70 5f | 4d 65 6e 75 43 65 6e 74 |@..Wimp_|MenuCent|
|00002f90| 72 65 28 6d 65 6e 25 2c | 69 25 2b 31 29 0d 10 4a |re(men%,|i%+1)..J|
|00002fa0| 05 ed 0d 10 54 09 3d 6d | 65 6e 25 0d 10 5e 05 3a |....T.=m|en%..^.:|
|00002fb0| 0d 10 68 22 dd 20 a4 57 | 69 6d 70 5f 4d 65 6e 75 |..h". .W|imp_Menu|
|00002fc0| 4e 6f 4f 66 45 6e 74 72 | 69 65 73 28 6d 65 6e 75 |NoOfEntr|ies(menu|
|00002fd0| 24 29 0d 10 72 1a ea 20 | 6e 25 20 2c 6a 25 20 3a |$)..r.. |n% ,j% :|
|00002fe0| 20 6e 25 3d 30 20 3a 20 | 6a 25 3d 30 0d 10 7c 05 | n%=0 : |j%=0..|.|
|00002ff0| f5 0d 10 86 17 6a 25 3d | a7 6d 65 6e 75 24 2c 22 |.....j%=|.menu$,"|
|00003000| 5c 22 2c 6a 25 2b 31 29 | 0d 10 90 13 e7 20 6a 25 |\",j%+1)|..... j%|
|00003010| 3c 3e 30 20 8c 20 6e 25 | 2b 3d 31 0d 10 9a 0a fd |<>0 . n%|+=1.....|
|00003020| 20 6a 25 3d 30 0d 10 a4 | 07 3d 6e 25 0d 10 ae 05 | j%=0...|.=n%....|
|00003030| 3a 0d 10 b8 35 dd 20 f2 | 57 69 6d 70 5f 4d 65 6e |:...5. .|Wimp_Men|
|00003040| 75 42 61 63 6b 47 72 6f | 75 6e 64 43 6f 6c 6f 75 |uBackGro|undColou|
|00003050| 72 28 6d 65 6e 75 25 2c | 69 74 65 6d 25 2c 63 6f |r(menu%,|item%,co|
|00003060| 6c 6f 75 72 25 29 0d 10 | c2 0e ea 20 66 6f 72 65 |lour%)..|... fore|
|00003070| 25 2c 69 25 0d 10 cc 26 | 66 6f 72 65 25 3d 28 6d |%,i%...&|fore%=(m|
|00003080| 65 6e 75 25 3f 28 33 39 | 2b 28 69 74 65 6d 25 2d |enu%?(39|+(item%-|
|00003090| 31 29 2a 32 34 29 29 83 | 31 36 0d 10 d6 28 69 25 |1)*24)).|16...(i%|
|000030a0| 3d 28 28 6d 65 6e 75 25 | 3f 28 33 39 2b 28 69 74 |=((menu%|?(39+(it|
|000030b0| 65 6d 25 2d 31 29 2a 32 | 34 29 29 81 31 36 29 83 |em%-1)*2|4)).16).|
|000030c0| 31 36 0d 10 e0 2f 6d 65 | 6e 75 25 3f 28 33 39 2b |16.../me|nu%?(39+|
|000030d0| 28 69 74 65 6d 25 2d 31 | 29 2a 32 34 29 3d 66 6f |(item%-1|)*24)=fo|
|000030e0| 72 65 25 2b 31 36 2a 63 | 6f 6c 6f 75 72 25 2b 69 |re%+16*c|olour%+i|
|000030f0| 25 0d 10 ea 05 e1 0d 10 | f4 05 3a 0d 10 fe 23 dd |%.......|..:...#.|
|00003100| 20 f2 57 69 6d 70 5f 4d | 65 6e 75 43 65 6e 74 72 | .Wimp_M|enuCentr|
|00003110| 65 28 6d 65 6e 75 25 2c | 69 74 65 6d 25 29 0d 11 |e(menu%,|item%)..|
|00003120| 08 3a 6d 65 6e 75 25 21 | 28 33 36 2b 28 69 74 65 |.:menu%!|(36+(ite|
|00003130| 6d 25 2d 31 29 2a 32 34 | 29 3d 6d 65 6e 75 25 21 |m%-1)*24|)=menu%!|
|00003140| 28 33 36 2b 28 69 74 65 | 6d 25 2d 31 29 2a 32 34 |(36+(ite|m%-1)*24|
|00003150| 29 84 28 31 3c 3c 33 29 | 0d 11 12 05 e1 0d 11 1c |).(1<<3)|........|
|00003160| 05 3a 0d 11 26 15 dd 20 | f2 57 69 6d 70 5f 4d 65 |.:..&.. |.Wimp_Me|
|00003170| 6e 75 43 6c 6f 73 65 0d | 11 30 1b c8 99 20 22 57 |nuClose.|.0... "W|
|00003180| 69 6d 70 5f 43 72 65 61 | 74 65 4d 65 6e 75 22 2c |imp_Crea|teMenu",|
|00003190| 2d 31 0d 11 3a 05 e1 0d | 11 44 05 3a 0d 11 4e 24 |-1..:...|.D.:..N$|
|000031a0| dd 20 f2 57 69 6d 70 5f | 4d 65 6e 75 44 69 73 61 |. .Wimp_|MenuDisa|
|000031b0| 62 6c 65 28 6d 65 6e 75 | 25 2c 69 74 65 6d 25 29 |ble(menu|%,item%)|
|000031c0| 0d 11 58 3b 6d 65 6e 75 | 25 21 28 33 36 2b 28 69 |..X;menu|%!(36+(i|
|000031d0| 74 65 6d 25 2d 31 29 2a | 32 34 29 3d 6d 65 6e 75 |tem%-1)*|24)=menu|
|000031e0| 25 21 28 33 36 2b 28 69 | 74 65 6d 25 2d 31 29 2a |%!(36+(i|tem%-1)*|
|000031f0| 32 34 29 84 28 31 3c 3c | 32 32 29 0d 11 62 05 e1 |24).(1<<|22)..b..|
|00003200| 0d 11 6c 05 3a 0d 11 76 | 27 dd 20 f2 57 69 6d 70 |..l.:..v|'. .Wimp|
|00003210| 5f 4d 65 6e 75 44 6f 74 | 74 65 64 4c 69 6e 65 28 |_MenuDot|tedLine(|
|00003220| 6d 65 6e 75 25 2c 69 74 | 65 6d 25 29 0d 11 80 37 |menu%,it|em%)...7|
|00003230| 6d 65 6e 75 25 21 28 32 | 38 2b 28 69 74 65 6d 25 |menu%!(2|8+(item%|
|00003240| 2d 31 29 2a 32 34 29 3d | 28 6d 65 6e 75 25 21 28 |-1)*24)=|(menu%!(|
|00003250| 32 38 2b 28 69 74 65 6d | 25 2d 31 29 2a 32 34 29 |28+(item|%-1)*24)|
|00003260| 29 84 32 0d 11 8a 05 e1 | 0d 11 94 05 3a 0d 11 9e |).2.....|....:...|
|00003270| 23 dd 20 f2 57 69 6d 70 | 5f 4d 65 6e 75 45 6e 61 |#. .Wimp|_MenuEna|
|00003280| 62 6c 65 28 6d 65 6e 75 | 25 2c 69 74 65 6d 25 29 |ble(menu|%,item%)|
|00003290| 0d 11 a8 22 f2 57 69 6d | 70 5f 4d 65 6e 75 44 69 |...".Wim|p_MenuDi|
|000032a0| 73 61 62 6c 65 28 6d 65 | 6e 75 25 2c 69 74 65 6d |sable(me|nu%,item|
|000032b0| 25 29 0d 11 b2 3b 6d 65 | 6e 75 25 21 28 33 36 2b |%)...;me|nu%!(36+|
|000032c0| 28 69 74 65 6d 25 2d 31 | 29 2a 32 34 29 3d 6d 65 |(item%-1|)*24)=me|
|000032d0| 6e 75 25 21 28 33 36 2b | 28 69 74 65 6d 25 2d 31 |nu%!(36+|(item%-1|
|000032e0| 29 2a 32 34 29 82 28 31 | 3c 3c 32 32 29 0d 11 bc |)*24).(1|<<22)...|
|000032f0| 05 e1 0d 11 c6 05 3a 0d | 11 d0 35 dd 20 f2 57 69 |......:.|..5. .Wi|
|00003300| 6d 70 5f 4d 65 6e 75 46 | 6f 72 65 67 72 6f 75 6e |mp_MenuF|oregroun|
|00003310| 64 43 6f 6c 6f 75 72 28 | 6d 65 6e 75 25 2c 69 74 |dColour(|menu%,it|
|00003320| 65 6d 25 2c 63 6f 6c 6f | 75 72 25 29 0d 11 da 45 |em%,colo|ur%)...E|
|00003330| 6d 65 6e 75 25 3f 28 33 | 39 2b 28 69 74 65 6d 25 |menu%?(3|9+(item%|
|00003340| 2d 31 29 2a 32 34 29 3d | 63 6f 6c 6f 75 72 25 2b |-1)*24)=|colour%+|
|00003350| 31 36 2a 28 28 6d 65 6e | 75 25 3f 28 33 39 2b 28 |16*((men|u%?(39+(|
|00003360| 69 74 65 6d 25 2d 31 29 | 2a 32 34 29 29 81 31 36 |item%-1)|*24)).16|
|00003370| 29 0d 11 e4 05 e1 0d 11 | ee 05 3a 0d 11 f8 29 dd |).......|..:...).|
|00003380| 20 f2 57 69 6d 70 5f 4d | 65 6e 75 47 6c 75 65 28 | .Wimp_M|enuGlue(|
|00003390| 6d 65 6e 75 31 25 2c 69 | 74 65 6d 25 2c 6d 65 6e |menu1%,i|tem%,men|
|000033a0| 75 32 25 29 0d 12 02 1e | 6d 65 6e 75 31 25 21 28 |u2%)....|menu1%!(|
|000033b0| 38 2b 69 74 65 6d 25 2a | 32 34 29 3d 6d 65 6e 75 |8+item%*|24)=menu|
|000033c0| 32 25 0d 12 0c 05 e1 0d | 12 16 05 3a 0d 12 20 27 |2%......|...:.. '|
|000033d0| dd 20 f2 57 69 6d 70 5f | 4d 65 6e 75 49 74 65 6d |. .Wimp_|MenuItem|
|000033e0| 28 6d 65 6e 75 25 2c 69 | 74 65 6d 25 2c 69 74 65 |(menu%,i|tem%,ite|
|000033f0| 6d 24 29 0d 12 2a 2c 24 | 28 6d 65 6e 75 25 2b 28 |m$)..*,$|(menu%+(|
|00003400| 34 30 2b 28 69 74 65 6d | 25 2d 31 29 2a 32 34 29 |40+(item|%-1)*24)|
|00003410| 29 3d c0 69 74 65 6d 24 | 2c 31 32 29 2b bd 30 0d |)=.item$|,12)+.0.|
|00003420| 12 34 05 e1 0d 12 3e 05 | 3a 0d 12 48 24 dd 20 f2 |.4....>.|:..H$. .|
|00003430| 57 69 6d 70 5f 4d 65 6e | 75 4d 65 73 73 61 67 65 |Wimp_Men|uMessage|
|00003440| 28 6d 65 6e 75 25 2c 69 | 74 65 6d 25 29 0d 12 52 |(menu%,i|tem%)..R|
|00003450| 3c 6d 65 6e 75 25 21 28 | 32 38 2b 28 69 74 65 6d |<menu%!(|28+(item|
|00003460| 25 2d 31 29 2a 32 34 29 | 3d 28 6d 65 6e 75 25 21 |%-1)*24)|=(menu%!|
|00003470| 28 32 38 2b 28 69 74 65 | 6d 25 2d 31 29 2a 32 34 |(28+(ite|m%-1)*24|
|00003480| 29 29 82 28 31 3c 3c 33 | 29 0d 12 5c 05 e1 0d 12 |)).(1<<3|)..\....|
|00003490| 66 05 3a 0d 12 70 22 dd | 20 f2 57 69 6d 70 5f 4d |f.:..p".| .Wimp_M|
|000034a0| 65 6e 75 50 6f 70 55 70 | 28 4d 65 6e 75 25 2c 78 |enuPopUp|(Menu%,x|
|000034b0| 25 2c 79 25 29 0d 12 7a | 0f 6d 65 6e 75 25 3d 4d |%,y%)..z|.menu%=M|
|000034c0| 65 6e 75 25 0d 12 84 2b | c8 99 20 22 57 69 6d 70 |enu%...+|.. "Wimp|
|000034d0| 5f 43 72 65 61 74 65 4d | 65 6e 75 22 2c 2c 6d 65 |_CreateM|enu",,me|
|000034e0| 6e 75 25 2c 78 25 2d 36 | 34 2c 79 25 2b 32 30 0d |nu%,x%-6|4,y%+20.|
|000034f0| 12 8e 05 e1 0d 12 98 05 | 3a 0d 12 a2 1f dd 20 f2 |........|:..... .|
|00003500| 57 69 6d 70 5f 4d 65 6e | 75 50 6f 70 55 70 42 61 |Wimp_Men|uPopUpBa|
|00003510| 72 28 78 25 2c 79 25 29 | 0d 12 ac 0f ea 20 6e 25 |r(x%,y%)|..... n%|
|00003520| 20 3a 20 6e 25 3d 30 0d | 12 b6 2b c8 95 20 28 28 | : n%=0.|..+.. ((|
|00003530| 42 61 72 5f 4d 65 6e 75 | 25 21 28 32 38 2b 6e 25 |Bar_Menu|%!(28+n%|
|00003540| 2a 32 34 29 29 80 25 31 | 30 30 30 30 30 30 30 29 |*24)).%1|0000000)|
|00003550| 3d 30 0d 12 c0 09 6e 25 | 2b 3d 31 0d 12 ca 05 ce |=0....n%|+=1.....|
|00003560| 0d 12 d4 32 c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |...2.. "|Wimp_Cre|
|00003570| 61 74 65 4d 65 6e 75 22 | 2c 2c 42 61 72 5f 4d 65 |ateMenu"|,,Bar_Me|
|00003580| 6e 75 25 2c 78 25 2d 36 | 34 2c 39 36 2b 6e 25 2a |nu%,x%-6|4,96+n%*|
|00003590| 34 34 0d 12 de 13 6d 65 | 6e 75 25 3d 42 61 72 5f |44....me|nu%=Bar_|
|000035a0| 4d 65 6e 75 25 0d 12 e8 | 05 e1 0d 12 f2 05 3a 0d |Menu%...|......:.|
|000035b0| 12 fc 21 dd 20 f2 57 69 | 6d 70 5f 4d 65 6e 75 54 |..!. .Wi|mp_MenuT|
|000035c0| 69 63 6b 28 6d 65 6e 75 | 25 2c 69 74 65 6d 25 29 |ick(menu|%,item%)|
|000035d0| 0d 13 06 37 6d 65 6e 75 | 25 21 28 32 38 2b 28 69 |...7menu|%!(28+(i|
|000035e0| 74 65 6d 25 2d 31 29 2a | 32 34 29 3d 28 6d 65 6e |tem%-1)*|24)=(men|
|000035f0| 75 25 21 28 32 38 2b 28 | 69 74 65 6d 25 2d 31 29 |u%!(28+(|item%-1)|
|00003600| 2a 32 34 29 29 82 31 0d | 13 10 05 e1 0d 13 1a 05 |*24)).1.|........|
|00003610| 3a 0d 13 24 23 dd 20 f2 | 57 69 6d 70 5f 4d 65 6e |:..$#. .|Wimp_Men|
|00003620| 75 54 69 74 6c 65 28 6d | 65 6e 75 25 2c 74 69 74 |uTitle(m|enu%,tit|
|00003630| 6c 65 24 29 0d 13 2e 19 | 24 6d 65 6e 75 25 3d c0 |le$)....|$menu%=.|
|00003640| 74 69 74 6c 65 24 2c 31 | 32 29 2b bd 30 0d 13 38 |title$,1|2)+.0..8|
|00003650| 05 e1 0d 13 42 05 3a 0d | 13 4c 3d dd 20 f2 57 69 |....B.:.|.L=. .Wi|
|00003660| 6d 70 5f 4d 65 6e 75 57 | 72 69 74 65 28 6d 65 6e |mp_MenuW|rite(men|
|00003670| 75 25 2c 69 74 65 6d 25 | 2c 62 75 66 66 65 72 25 |u%,item%|,buffer%|
|00003680| 2c 76 61 6c 25 2c 42 75 | 66 66 65 72 4c 65 6e 67 |,val%,Bu|fferLeng|
|00003690| 74 68 25 29 0d 13 56 37 | 6d 65 6e 75 25 21 28 32 |th%)..V7|menu%!(2|
|000036a0| 38 2b 28 69 74 65 6d 25 | 2d 31 29 2a 32 34 29 3d |8+(item%|-1)*24)=|
|000036b0| 28 6d 65 6e 75 25 21 28 | 32 38 2b 28 69 74 65 6d |(menu%!(|28+(item|
|000036c0| 25 2d 31 29 2a 32 34 29 | 29 84 34 0d 13 60 38 6d |%-1)*24)|).4..`8m|
|000036d0| 65 6e 75 25 21 28 33 36 | 2b 28 69 74 65 6d 25 2d |enu%!(36|+(item%-|
|000036e0| 31 29 2a 32 34 29 3d 6d | 65 6e 75 25 21 28 33 36 |1)*24)=m|enu%!(36|
|000036f0| 2b 28 69 74 65 6d 25 2d | 31 29 2a 32 34 29 84 26 |+(item%-|1)*24).&|
|00003700| 31 30 30 0d 13 6a 23 6d | 65 6e 75 25 21 28 34 30 |100..j#m|enu%!(40|
|00003710| 2b 28 69 74 65 6d 25 2d | 31 29 2a 32 34 29 3d 62 |+(item%-|1)*24)=b|
|00003720| 75 66 66 65 72 25 0d 13 | 74 20 6d 65 6e 75 25 21 |uffer%..|t menu%!|
|00003730| 28 34 34 2b 28 69 74 65 | 6d 25 2d 31 29 2a 32 34 |(44+(ite|m%-1)*24|
|00003740| 29 3d 76 61 6c 25 0d 13 | 7e 29 6d 65 6e 75 25 21 |)=val%..|~)menu%!|
|00003750| 28 34 38 2b 28 69 74 65 | 6d 25 2d 31 29 2a 32 34 |(48+(ite|m%-1)*24|
|00003760| 29 3d 42 75 66 66 65 72 | 4c 65 6e 67 74 68 25 0d |)=Buffer|Length%.|
|00003770| 13 88 05 e1 0d 13 92 05 | 3a 0d 13 9c 06 f4 7c 0d |........|:.....|.|
|00003780| 13 a6 06 f4 7c 0d 13 b0 | 06 f4 7c 0d 13 ba 31 f4 |....|...|..|...1.|
|00003790| 7c 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 || | |
|000037a0| 20 20 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -----|--------|
|000037b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 13 c4 2a |--------|----...*|
|000037c0| f4 7c 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.| | |
|000037d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 34 2e a0 53 | | 4..S|
|000037e0| 70 72 69 74 65 73 0d 13 | ce 31 f4 7c 20 20 20 20 |prites..|.1.| |
|000037f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2d 2d | | --|
|00003800| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003810| 2d 2d 2d 2d 2d 2d 2d 0d | 13 d8 06 f4 7c 0d 13 e2 |-------.|....|...|
|00003820| 06 f4 7c 0d 13 ec 3a f4 | 7c 20 20 20 20 20 20 20 |..|...:.|| |
|00003830| 20 20 20 20 20 20 20 20 | 20 2d 2d 2d 2d 2d 2d 2d | | -------|
|00003840| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003850| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 13 f6 |--------|-----...|
|00003860| 06 f4 7c 0d 14 00 28 f4 | 7c 20 20 20 20 20 20 20 |..|...(.|| |
|00003870| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 50 | | P|
|00003880| 72 6f 63 65 64 75 72 65 | 73 20 3a 0d 14 0a 06 f4 |rocedure|s :.....|
|00003890| 7c 0d 14 14 06 f4 7c 0d | 14 1e 2c f4 7c 20 20 20 ||.....|.|..,.| |
|000038a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 50 | | P|
|000038b0| 52 4f 43 57 69 6d 70 5f | 53 70 72 69 74 65 73 4c |ROCWimp_|SpritesL|
|000038c0| 6f 61 64 0d 14 28 3a f4 | 7c 20 20 20 20 20 20 20 |oad..(:.|| |
|000038d0| 20 20 20 20 20 20 20 20 | 20 20 20 50 52 4f 43 57 | | PROCW|
|000038e0| 69 6d 70 5f 53 70 72 69 | 74 65 73 50 61 74 68 4c |imp_Spri|tesPathL|
|000038f0| 6f 61 64 28 70 61 74 68 | 6e 61 6d 65 24 0d 14 32 |oad(path|name$..2|
|00003900| 06 f4 7c 0d 14 3c 06 f4 | 7c 0d 14 46 06 f4 7c 0d |..|..<..||..F..|.|
|00003910| 14 50 3a f4 7c 20 20 20 | 20 20 20 20 20 20 20 20 |.P:.| | |
|00003920| 20 20 20 20 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | ---|--------|
|00003930| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003940| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 14 5a 06 f4 7c 0d |--------|-..Z..|.|
|00003950| 14 64 05 3a 0d 14 6e 17 | dd 20 f2 57 69 6d 70 5f |.d.:..n.|. .Wimp_|
|00003960| 53 70 72 69 74 65 73 4c | 6f 61 64 0d 14 78 2f f2 |SpritesL|oad..x/.|
|00003970| 57 69 6d 70 5f 53 70 72 | 69 74 65 73 50 61 74 68 |Wimp_Spr|itesPath|
|00003980| 4c 6f 61 64 28 22 3c 4f | 62 65 79 24 44 69 72 3e |Load("<O|bey$Dir>|
|00003990| 2e 53 70 72 69 74 65 73 | 22 29 0d 14 82 1c 64 69 |.Sprites|")....di|
|000039a0| 72 65 63 74 5f 73 70 72 | 69 74 65 73 25 3d 73 70 |rect_spr|ites%=sp|
|000039b0| 72 69 74 65 73 25 0d 14 | 8c 05 e1 0d 14 96 05 3a |rites%..|.......:|
|000039c0| 0d 14 a0 26 dd 20 f2 57 | 69 6d 70 5f 53 70 72 69 |...&. .W|imp_Spri|
|000039d0| 74 65 73 50 61 74 68 4c | 6f 61 64 28 70 61 74 68 |tesPathL|oad(path|
|000039e0| 6e 61 6d 65 24 29 0d 14 | aa 0a ea 53 25 2c 54 25 |name$)..|...S%,T%|
|000039f0| 0d 14 b4 21 53 25 3d 8e | 70 61 74 68 6e 61 6d 65 |...!S%=.|pathname|
|00003a00| 24 3a 54 25 3d a2 23 53 | 25 2b 31 36 3a d9 23 53 |$:T%=.#S|%+16:.#S|
|00003a10| 25 0d 14 be 19 de 73 70 | 72 69 74 65 73 25 54 25 |%.....sp|rites%T%|
|00003a20| 2c 73 70 6e 61 6d 65 25 | 31 32 0d 14 c8 1d 21 73 |,spname%|12....!s|
|00003a30| 70 72 69 74 65 73 25 3d | 54 25 3a 73 70 72 69 74 |prites%=|T%:sprit|
|00003a40| 65 73 25 21 38 3d 30 0d | 14 d2 21 c8 99 22 4f 53 |es%!8=0.|..!.."OS|
|00003a50| 5f 53 70 72 69 74 65 4f | 70 22 2c 26 31 30 39 2c |_SpriteO|p",&109,|
|00003a60| 73 70 72 69 74 65 73 25 | 0d 14 dc 2b c8 99 22 4f |sprites%|...+.."O|
|00003a70| 53 5f 53 70 72 69 74 65 | 4f 70 22 2c 26 31 30 41 |S_Sprite|Op",&10A|
|00003a80| 2c 73 70 72 69 74 65 73 | 25 2c 70 61 74 68 6e 61 |,sprites|%,pathna|
|00003a90| 6d 65 24 0d 14 e6 05 e1 | 0d 14 f0 05 3a 0d 14 fa |me$.....|....:...|
|00003aa0| 06 f4 7c 0d 15 04 06 f4 | 7c 0d 15 0e 06 f4 7c 0d |..|.....||.....|.|
|00003ab0| 15 18 31 f4 7c 20 20 20 | 20 20 20 20 20 20 20 20 |..1.| | |
|00003ac0| 20 20 20 20 20 20 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -|--------|
|00003ad0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003ae0| 0d 15 22 28 f4 7c 20 20 | 20 20 20 20 20 20 20 20 |.."(.| | |
|00003af0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003b00| 35 2e a0 46 69 6c 65 73 | 0d 15 2c 31 f4 7c 20 20 |5..Files|..,1.| |
|00003b10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003b20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003b30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 15 36 06 f4 7c 0d |--------|-..6..|.|
|00003b40| 15 40 06 f4 7c 0d 15 4a | 35 f4 7c 20 20 20 20 20 |.@..|..J|5.| |
|00003b50| 20 20 20 20 20 20 20 20 | 20 20 20 2d 2d 2d 2d 2d | | -----|
|00003b60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003b70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 15 54 06 f4 7c |--------|--..T..||
|00003b80| 0d 15 5e 28 f4 7c 20 20 | 20 20 20 20 20 20 20 20 |..^(.| | |
|00003b90| 20 20 20 20 20 20 20 20 | 20 20 20 20 50 72 6f 63 | | Proc|
|00003ba0| 65 64 75 72 65 73 20 3a | 0d 15 68 06 f4 7c 0d 15 |edures :|..h..|..|
|00003bb0| 72 06 f4 7c 0d 15 7c 2e | f4 7c 20 20 20 20 20 20 |r..|..|.|.| |
|00003bc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 46 4e 57 69 | | FNWi|
|00003bd0| 6d 70 5f 46 69 6c 65 54 | 79 70 65 28 74 79 70 65 |mp_FileT|ype(type|
|00003be0| 25 29 0d 15 86 2e f4 7c | 20 20 20 20 20 20 20 20 |%).....|| |
|00003bf0| 20 20 20 20 20 20 20 20 | 20 20 46 4e 57 69 6d 70 | | FNWimp|
|00003c00| 5f 47 65 74 46 69 6c 65 | 50 61 74 68 4e 61 6d 65 |_GetFile|PathName|
|00003c10| 0d 15 90 32 f4 7c 20 20 | 20 20 20 20 20 20 20 20 |...2.| | |
|00003c20| 20 20 20 20 20 20 20 20 | 46 4e 57 69 6d 70 5f 46 | |FNWimp_F|
|00003c30| 69 6c 65 4c 6f 61 64 28 | 70 61 74 68 6e 61 6d 65 |ileLoad(|pathname|
|00003c40| 24 29 0d 15 9a 39 f4 7c | 20 20 20 20 20 20 20 20 |$)...9.|| |
|00003c50| 20 20 20 20 20 20 20 20 | 20 20 46 4e 57 69 6d 70 | | FNWimp|
|00003c60| 5f 47 65 74 53 74 72 69 | 6e 67 41 74 41 64 64 72 |_GetStri|ngAtAddr|
|00003c70| 65 73 73 28 61 72 72 61 | 79 25 29 0d 15 a4 36 f4 |ess(arra|y%)...6.|
|00003c80| 7c 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 || | |
|00003c90| 20 20 20 46 4e 57 69 6d | 70 5f 47 65 74 46 69 6c | FNWim|p_GetFil|
|00003ca0| 65 46 72 6f 6d 50 61 74 | 68 6e 61 6d 65 28 66 24 |eFromPat|hname(f$|
|00003cb0| 29 0d 15 ae 32 f4 7c 20 | 20 20 20 20 20 20 20 20 |)...2.| | |
|00003cc0| 20 20 20 20 20 20 20 20 | 20 50 52 4f 43 57 69 6d | | PROCWim|
|00003cd0| 70 5f 53 65 6e 64 54 6f | 45 64 69 74 28 66 69 6c |p_SendTo|Edit(fil|
|00003ce0| 65 24 29 0d 15 b8 06 f4 | 7c 0d 15 c2 35 f4 7c 20 |e$).....||...5.| |
|00003cf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2d | | -|
|00003d00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003d10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 15 |--------|------..|
|00003d20| cc 06 f4 7c 0d 15 d6 06 | f4 7c 0d 15 e0 06 f4 7c |...|....|.|.....||
|00003d30| 0d 15 ea 05 3a 0d 15 f4 | 1b dd 20 a4 57 69 6d 70 |....:...|.. .Wimp|
|00003d40| 5f 46 69 6c 65 54 79 70 | 65 28 74 79 70 65 25 29 |_FileTyp|e(type%)|
|00003d50| 0d 15 fe 0c c8 8e 74 79 | 70 65 25 ca 0d 16 08 11 |......ty|pe%.....|
|00003d60| c9 26 46 46 46 3a 3d 22 | 54 65 78 74 22 0d 16 12 |.&FFF:="|Text"...|
|00003d70| 11 c9 26 46 46 44 3a 3d | 22 44 61 74 61 22 0d 16 |..&FFD:=|"Data"..|
|00003d80| 1c 12 c9 26 46 46 42 3a | 3d 22 42 61 73 69 63 22 |...&FFB:|="Basic"|
|00003d90| 0d 16 26 13 c9 26 46 46 | 39 3a 3d 22 53 70 72 69 |..&..&FF|9:="Spri|
|00003da0| 74 65 22 0d 16 30 14 c9 | 26 46 45 44 3a 3d 22 50 |te"..0..|&FED:="P|
|00003db0| 61 6c 65 74 74 65 22 0d | 16 3a 15 c9 26 46 45 43 |alette".|.:..&FEC|
|00003dc0| 3a 3d 22 54 65 6d 70 6c | 61 74 65 22 0d 16 44 11 |:="Templ|ate"..D.|
|00003dd0| c9 26 41 46 46 3a 3d 22 | 44 72 61 77 22 0d 16 4e |.&AFF:="|Draw"..N|
|00003de0| 14 c9 26 31 30 30 30 3a | 3d 22 46 6f 6c 64 65 72 |..&1000:|="Folder|
|00003df0| 22 0d 16 58 19 c9 26 32 | 30 30 30 3a 3d 22 41 70 |"..X..&2|000:="Ap|
|00003e00| 70 6c 69 63 61 74 69 6f | 6e 22 0d 16 62 0f 7f 3d |plicatio|n"..b..=|
|00003e10| c3 7e 28 74 79 70 65 25 | 29 0d 16 6c 05 cb 0d 16 |.~(type%|)..l....|
|00003e20| 76 05 3a 0d 16 80 1b dd | 20 a4 57 69 6d 70 5f 47 |v.:.....| .Wimp_G|
|00003e30| 65 74 46 69 6c 65 50 61 | 74 68 4e 61 6d 65 0d 16 |etFilePa|thName..|
|00003e40| 8a 27 3d a4 57 69 6d 70 | 5f 47 65 74 53 74 72 69 |.'=.Wimp|_GetStri|
|00003e50| 6e 67 41 74 41 64 64 72 | 65 73 73 28 77 69 6d 70 |ngAtAddr|ess(wimp|
|00003e60| 25 2b 34 34 29 0d 16 94 | 05 3a 0d 16 9e 1f dd 20 |%+44)...|.:..... |
|00003e70| a4 57 69 6d 70 5f 46 69 | 6c 65 4c 6f 61 64 28 70 |.Wimp_Fi|leLoad(p|
|00003e80| 61 74 68 6e 61 6d 65 24 | 29 0d 16 a8 10 ea 53 25 |athname$|).....S%|
|00003e90| 2c 54 25 2c 66 69 6c 65 | 25 0d 16 b2 11 53 25 3d |,T%,file|%....S%=|
|00003ea0| 8e 70 61 74 68 6e 61 6d | 65 24 0d 16 bc 0e 54 25 |.pathnam|e$....T%|
|00003eb0| 3d a2 23 53 25 2b 31 36 | 0d 16 c6 08 d9 23 53 25 |=.#S%+16|.....#S%|
|00003ec0| 0d 16 d0 0c de 66 69 6c | 65 25 54 25 0d 16 da 22 |.....fil|e%T%..."|
|00003ed0| ff 28 22 4c 4f 41 44 22 | 2b 70 61 74 68 6e 61 6d |.("LOAD"|+pathnam|
|00003ee0| 65 24 2b 22 22 2b c3 7e | 66 69 6c 65 25 29 0d 16 |e$+""+.~|file%)..|
|00003ef0| e4 0a 3d 66 69 6c 65 25 | 0d 16 ee 05 3b 0d 16 f8 |..=file%|....;...|
|00003f00| 26 dd 20 a4 57 69 6d 70 | 5f 47 65 74 53 74 72 69 |&. .Wimp|_GetStri|
|00003f10| 6e 67 41 74 41 64 64 72 | 65 73 73 28 61 72 72 61 |ngAtAddr|ess(arra|
|00003f20| 79 25 29 0d 17 02 0d ea | 73 24 3a 73 24 3d 22 22 |y%).....|s$:s$=""|
|00003f30| 0d 17 0c 3c c8 95 28 3f | 61 72 72 61 79 25 3c 3e |...<..(?|array%<>|
|00003f40| 31 33 29 80 28 3f 61 72 | 72 61 79 25 3c 3e 30 29 |13).(?ar|ray%<>0)|
|00003f50| 3a 73 24 2b 3d bd 28 3f | 61 72 72 61 79 25 29 3a |:s$+=.(?|array%):|
|00003f60| 61 72 72 61 79 25 2b 3d | 31 3a ce 3a 0d 17 16 07 |array%+=|1:.:....|
|00003f70| 3d 73 24 0d 17 20 05 3a | 0d 17 2a 23 dd 20 a4 57 |=s$.. .:|..*#. .W|
|00003f80| 69 6d 70 5f 47 65 74 46 | 69 6c 65 46 72 6f 6d 50 |imp_GetF|ileFromP|
|00003f90| 61 74 68 6e 61 6d 65 28 | 66 24 29 0d 17 34 11 c8 |athname(|f$)..4..|
|00003fa0| 8e 20 a7 66 24 2c 22 2e | 22 29 20 ca 0d 17 3e 10 |. .f$,".|") ...>.|
|00003fb0| 20 c9 20 30 20 20 20 20 | 3a 3d 66 24 0d 17 48 37 | . 0 |:=f$..H7|
|00003fc0| 20 7f 20 3a 3d a4 57 69 | 6d 70 5f 47 65 74 46 69 | . :=.Wi|mp_GetFi|
|00003fd0| 6c 65 46 72 6f 6d 50 61 | 74 68 6e 61 6d 65 28 c2 |leFromPa|thname(.|
|00003fe0| 66 24 2c a9 28 66 24 29 | 2d a7 66 24 2c 22 2e 22 |f$,.(f$)|-.f$,"."|
|00003ff0| 29 29 29 0d 17 52 05 cb | 0d 17 5c 05 3a 0d 17 66 |)))..R..|..\.:..f|
|00004000| 1d dd 20 f2 57 69 6d 70 | 5f 53 65 6e 64 54 6f 45 |.. .Wimp|_SendToE|
|00004010| 64 69 74 28 66 69 6c 65 | 24 29 0d 17 70 08 ea 20 |dit(file|$)..p.. |
|00004020| 6e 25 0d 17 7a 15 77 69 | 6d 70 25 21 34 3d 26 36 |n%..z.wi|mp%!4=&6|
|00004030| 43 43 30 31 43 30 43 0d | 17 84 0e 77 69 6d 70 25 |CC01C0C.|...wimp%|
|00004040| 21 31 36 3d 35 0d 17 8e | 0e 77 69 6d 70 25 21 33 |!16=5...|.wimp%!3|
|00004050| 36 3d 30 0d 17 98 11 77 | 69 6d 70 25 21 34 30 3d |6=0....w|imp%!40=|
|00004060| 26 46 46 46 0d 17 a2 18 | 24 28 77 69 6d 70 25 2b |&FFF....|$(wimp%+|
|00004070| 34 34 29 3d 66 69 6c 65 | 24 2b bd 30 0d 17 ac 10 |44)=file|$+.0....|
|00004080| 6e 25 3d a9 66 69 6c 65 | 24 2b 34 35 0d 17 b6 2c |n%=.file|$+45...,|
|00004090| e7 20 6e 25 83 34 20 8c | 20 21 77 69 6d 70 25 3d |. n%.4 .| !wimp%=|
|000040a0| 34 2b 28 6e 25 3e 3e 32 | 29 3c 3c 32 20 8b 20 21 |4+(n%>>2|)<<2 . !|
|000040b0| 77 69 6d 70 25 3d 6e 25 | 0d 17 c0 24 c8 99 20 22 |wimp%=n%|...$.. "|
|000040c0| 57 69 6d 70 5f 53 65 6e | 64 4d 65 73 73 61 67 65 |Wimp_Sen|dMessage|
|000040d0| 22 2c 31 37 2c 77 69 6d | 70 25 2c 30 0d 17 ca 05 |",17,wim|p%,0....|
|000040e0| e1 0d 17 d4 05 3a 0d 17 | de 06 f4 7c 0d 17 e8 06 |.....:..|...|....|
|000040f0| f4 7c 0d 17 f2 06 f4 7c | 0d 17 fc 31 f4 7c 20 20 |.|.....||...1.| |
|00004100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004110| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004120| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 18 06 2c f4 7c 20 |--------|-...,.| |
|00004130| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004140| 20 20 20 20 20 35 2e a0 | 4d 69 73 63 65 6c 6c 61 | 5..|Miscella|
|00004150| 6e 65 6f 75 73 0d 18 10 | 31 f4 7c 20 20 20 20 20 |neous...|1.| |
|00004160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2d 2d 2d | | ---|
|00004170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004180| 2d 2d 2d 2d 2d 2d 0d 18 | 1a 06 f4 7c 0d 18 24 06 |------..|...|..$.|
|00004190| f4 7c 0d 18 2e 35 f4 7c | 20 20 20 20 20 20 20 20 |.|...5.|| |
|000041a0| 20 20 20 20 20 20 20 20 | 2d 2d 2d 2d 2d 2d 2d 2d | |--------|
|000041b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000041c0| 2d 2d 2d 2d 2d 2d 2d 0d | 18 38 06 f4 7c 0d 18 42 |-------.|.8..|..B|
|000041d0| 28 f4 7c 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |(.| | |
|000041e0| 20 20 20 20 20 20 20 20 | 20 50 72 6f 63 65 64 75 | | Procedu|
|000041f0| 72 65 73 20 3a 0d 18 4c | 06 f4 7c 0d 18 56 06 f4 |res :..L|..|..V..|
|00004200| 7c 0d 18 60 31 f4 7c 20 | 20 20 20 20 20 20 20 20 ||..`1.| | |
|00004210| 20 20 20 20 20 20 20 20 | 20 50 52 4f 43 57 69 6d | | PROCWim|
|00004220| 70 5f 53 74 61 72 74 28 | 54 61 73 6b 4e 61 6d 65 |p_Start(|TaskName|
|00004230| 24 29 0d 18 6a 2e f4 7c | 20 20 20 20 20 20 20 20 |$)..j..|| |
|00004240| 20 20 20 20 20 20 20 20 | 20 20 46 4e 57 69 6d 70 | | FNWimp|
|00004250| 5f 42 41 53 49 43 50 61 | 72 61 6d 65 74 65 72 73 |_BASICPa|rameters|
|00004260| 0d 18 74 32 f4 7c 20 20 | 20 20 20 20 20 20 20 20 |..t2.| | |
|00004270| 20 20 20 20 20 20 20 20 | 50 52 4f 43 57 69 6d 70 | |PROCWimp|
|00004280| 5f 53 65 74 45 76 65 6e | 74 56 61 72 69 61 62 6c |_SetEven|tVariabl|
|00004290| 65 73 0d 18 7e 37 f4 7c | 20 20 20 20 20 20 20 20 |es..~7.|| |
|000042a0| 20 20 20 20 20 20 20 20 | 20 20 50 52 4f 43 57 69 | | PROCWi|
|000042b0| 6d 70 5f 45 72 72 6f 72 | 28 74 61 73 6b 25 2c 54 |mp_Error|(task%,T|
|000042c0| 61 73 6b 4e 61 6d 65 24 | 29 0d 18 88 2a f4 7c 20 |askName$|)...*.| |
|000042d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000042e0| 20 50 52 4f 43 57 69 6d | 70 5f 43 6c 6f 73 65 44 | PROCWim|p_CloseD|
|000042f0| 6f 77 6e 0d 18 92 25 f4 | 7c 20 20 20 20 20 20 20 |own...%.|| |
|00004300| 20 20 20 20 20 20 20 20 | 20 20 20 50 52 4f 43 57 | | PROCW|
|00004310| 69 6d 70 5f 51 75 69 74 | 0d 18 9c 36 f4 7c 20 20 |imp_Quit|...6.| |
|00004320| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004330| 46 4e 57 69 6d 70 5f 52 | 65 61 64 56 61 72 69 61 |FNWimp_R|eadVaria|
|00004340| 62 6c 65 28 56 61 72 69 | 61 62 6c 65 24 29 0d 18 |ble(Vari|able$)..|
|00004350| a6 06 f4 7c 0d 18 b0 06 | f4 7c 0d 18 ba 35 f4 7c |...|....|.|...5.||
|00004360| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004370| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004380| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00004390| 18 c4 06 f4 7c 0d 18 ce | 05 3a 0d 18 d8 2f dd 20 |....|...|.:.../. |
|000043a0| f2 57 69 6d 70 5f 53 74 | 61 72 74 28 54 61 73 6b |.Wimp_St|art(Task|
|000043b0| 4e 61 6d 65 24 2c 77 69 | 6d 70 5f 6d 65 6d 6f 72 |Name$,wi|mp_memor|
|000043c0| 79 25 2c 69 63 6f 6e 25 | 29 0d 18 e2 29 e7 20 77 |y%,icon%|)...). w|
|000043d0| 69 6d 70 5f 6d 65 6d 6f | 72 79 25 3c 32 35 36 20 |imp_memo|ry%<256 |
|000043e0| 8c 20 77 69 6d 70 5f 6d | 65 6d 6f 72 79 25 3d 32 |. wimp_m|emory%=2|
|000043f0| 35 36 0d 18 ec 25 de 20 | 77 69 6d 70 25 20 77 69 |56...%. |wimp% wi|
|00004400| 6d 70 5f 6d 65 6d 6f 72 | 79 25 2c 69 63 6f 6e 73 |mp_memor|y%,icons|
|00004410| 25 20 69 63 6f 6e 25 0d | 18 f6 1d 69 63 6f 6e 5f |% icon%.|...icon_|
|00004420| 6d 65 6d 6f 72 79 25 3d | 69 63 6f 6e 73 25 2b 69 |memory%=|icons%+i|
|00004430| 63 6f 6e 25 0d 19 00 13 | 74 61 73 6b 24 3d 54 61 |con%....|task$=Ta|
|00004440| 73 6b 4e 61 6d 65 24 0d | 19 0a 2b 69 6e 64 69 72 |skName$.|..+indir|
|00004450| 65 63 74 5f 73 70 72 69 | 74 65 73 25 3d 31 20 3a |ect_spri|tes%=1 :|
|00004460| 20 64 69 72 65 63 74 5f | 73 70 72 69 74 65 73 25 | direct_|sprites%|
|00004470| 3d 31 0d 19 14 1b f2 57 | 69 6d 70 5f 53 65 74 45 |=1.....W|imp_SetE|
|00004480| 76 65 6e 74 56 61 72 69 | 61 62 6c 65 73 0d 19 1e |ventVari|ables...|
|00004490| 15 ee 20 85 20 f2 57 69 | 6d 70 5f 45 72 72 6f 72 |.. . .Wi|mp_Error|
|000044a0| 3a e0 0d 19 28 40 c8 99 | 22 57 69 6d 70 5f 49 6e |:...(@..|"Wimp_In|
|000044b0| 69 74 69 61 6c 69 73 65 | 22 2c 32 30 30 2c 26 34 |itialise|",200,&4|
|000044c0| 42 35 33 34 31 35 34 2c | 54 61 73 6b 4e 61 6d 65 |B534154,|TaskName|
|000044d0| 24 20 b8 20 76 65 72 73 | 69 6f 6e 25 2c 74 61 73 |$ . vers|ion%,tas|
|000044e0| 6b 25 0d 19 32 05 e1 0d | 19 3c 05 3a 0d 19 46 1b |k%..2...|.<.:..F.|
|000044f0| dd 20 a4 57 69 6d 70 5f | 42 41 53 49 43 50 61 72 |. .Wimp_|BASICPar|
|00004500| 61 6d 65 74 65 72 73 0d | 19 50 15 20 ea 20 63 6f |ameters.|.P. . co|
|00004510| 6d 24 2c 70 61 72 61 6d | 24 2c 49 25 0d 19 5a 1a |m$,param|$,I%..Z.|
|00004520| 20 c8 99 20 22 4f 53 5f | 47 65 74 45 6e 76 22 20 | .. "OS_|GetEnv" |
|00004530| b8 20 63 6f 6d 24 0d 19 | 64 0f 20 70 61 72 61 6d |. com$..|d. param|
|00004540| 73 24 3d 22 22 0d 19 6e | 18 20 49 25 3d a7 63 6f |s$=""..n|. I%=.co|
|00004550| 6d 24 2c 22 20 2d 71 75 | 69 74 20 22 29 0d 19 78 |m$," -qu|it ")..x|
|00004560| 35 20 e7 20 49 25 20 8c | 20 70 61 72 61 6d 73 24 |5 . I% .| params$|
|00004570| 3d c1 63 6f 6d 24 2c a7 | 63 6f 6d 24 2c 22 20 22 |=.com$,.|com$," "|
|00004580| 2c 49 25 2b a9 22 20 2d | 71 75 69 74 20 22 29 2b |,I%+." -|quit ")+|
|00004590| 31 29 0d 19 82 0c 3d 70 | 61 72 61 6d 73 24 0d 19 |1)....=p|arams$..|
|000045a0| 8c 05 3a 0d 19 96 1d dd | 20 f2 57 69 6d 70 5f 53 |..:.....| .Wimp_S|
|000045b0| 65 74 45 76 65 6e 74 56 | 61 72 69 61 62 6c 65 73 |etEventV|ariables|
|000045c0| 0d 19 a0 17 de 20 70 6f | 69 6e 74 65 72 5f 62 6c |..... po|inter_bl|
|000045d0| 6f 63 6b 25 20 32 30 0d | 19 aa 10 69 6e 74 65 72 |ock% 20.|...inter|
|000045e0| 66 61 63 65 25 3d b9 0d | 19 b4 2e 6e 75 6c 6c 25 |face%=..|...null%|
|000045f0| 3d 31 20 20 3a 64 72 61 | 77 25 3d 32 20 3a 20 20 |=1 :dra|w%=2 : |
|00004600| 70 6f 69 6e 74 65 72 5f | 6c 65 61 76 69 6e 67 25 |pointer_|leaving%|
|00004610| 3d 31 3c 3c 34 0d 19 be | 31 70 6f 69 6e 74 65 72 |=1<<4...|1pointer|
|00004620| 5f 65 6e 74 65 72 69 6e | 67 25 3d 31 3c 3c 35 3a |_enterin|g%=1<<5:|
|00004630| 6d 6f 75 73 65 25 3d 31 | 3c 3c 36 3a 64 72 61 67 |mouse%=1|<<6:drag|
|00004640| 25 3d 31 3c 3c 37 0d 19 | c8 26 6b 65 79 25 3d 31 |%=1<<7..|.&key%=1|
|00004650| 3c 3c 38 3a 6d 65 6e 75 | 25 3d 31 3c 3c 39 3a 73 |<<8:menu|%=1<<9:s|
|00004660| 63 72 6f 6c 6c 25 3d 31 | 3c 3c 31 30 0d 19 d2 40 |croll%=1|<<10...@|
|00004670| 6c 6f 73 65 5f 63 61 72 | 65 74 25 3d 31 3c 3c 31 |lose_car|et%=1<<1|
|00004680| 31 3a 67 61 69 6e 5f 63 | 61 72 65 74 25 3d 31 3c |1:gain_c|aret%=1<|
|00004690| 3c 31 32 3a 6d 65 73 73 | 61 67 65 25 3d 28 31 3c |<12:mess|age%=(1<|
|000046a0| 3c 31 37 29 2b 28 31 3c | 3c 31 38 29 0d 19 dc 30 |<17)+(1<|<18)...0|
|000046b0| 72 65 63 6f 72 64 65 72 | 25 3d 31 3c 3c 31 38 3a |recorder|%=1<<18:|
|000046c0| 61 63 6b 6e 6f 77 6c 65 | 64 67 65 25 3d 31 3c 3c |acknowle|dge%=1<<|
|000046d0| 31 39 3a 77 69 6e 64 6f | 77 25 3d 30 0d 19 e6 21 |19:windo|w%=0...!|
|000046e0| 73 70 72 69 74 65 73 25 | 3d 31 3a 76 65 72 73 69 |sprites%|=1:versi|
|000046f0| 6f 6e 25 3d 30 3a 74 61 | 73 6b 25 3d 30 0d 19 f0 |on%=0:ta|sk%=0...|
|00004700| 2a 42 61 72 5f 57 69 6e | 64 6f 77 25 3d 2d 32 3a |*Bar_Win|dow%=-2:|
|00004710| 42 61 72 5f 49 63 6f 6e | 25 3d 30 3a 42 61 72 5f |Bar_Icon|%=0:Bar_|
|00004720| 4d 65 6e 75 25 3d 30 0d | 19 fa 2a 78 5f 6f 72 69 |Menu%=0.|..*x_ori|
|00004730| 67 69 6e 25 3d 30 3a 79 | 5f 6f 72 69 67 69 6e 25 |gin%=0:y|_origin%|
|00004740| 3d 30 3a 53 61 76 65 57 | 69 6e 64 6f 77 25 3d 2d |=0:SaveW|indow%=-|
|00004750| 33 0d 1a 04 33 6d 65 73 | 73 61 67 65 5f 71 75 69 |3...3mes|sage_qui|
|00004760| 74 25 3d 30 3a 6d 65 73 | 73 61 67 65 5f 73 61 76 |t%=0:mes|sage_sav|
|00004770| 65 25 3d 32 3a 6d 65 73 | 73 61 67 65 5f 6c 6f 61 |e%=2:mes|sage_loa|
|00004780| 64 25 3d 33 0d 1a 0e 21 | 6d 6f 75 73 65 5f 62 75 |d%=3...!|mouse_bu|
|00004790| 74 74 6f 6e 25 3d 32 3a | 73 61 76 65 5f 65 76 65 |tton%=2:|save_eve|
|000047a0| 6e 74 25 3d 30 0d 1a 18 | 20 74 6f 70 5f 6c 69 6e |nt%=0...| top_lin|
|000047b0| 65 25 3d 30 20 3a 20 62 | 6f 74 74 6f 6d 5f 6c 69 |e%=0 : b|ottom_li|
|000047c0| 6e 65 25 3d 30 0d 1a 22 | 2a 64 72 61 67 77 69 6e |ne%=0.."|*dragwin|
|000047d0| 25 3d 30 3a 64 72 61 67 | 69 63 6f 6e 25 3d 30 3a |%=0:drag|icon%=0:|
|000047e0| 64 72 61 67 69 63 6f 6e | 74 65 78 74 25 3d 31 0d |dragicon|text%=1.|
|000047f0| 1a 2c 05 e1 0d 1a 36 05 | 3a 0d 1a 40 11 dd 20 f2 |.,....6.|:..@.. .|
|00004800| 57 69 6d 70 5f 45 72 72 | 6f 72 0d 1a 4a 0a ea 58 |Wimp_Err|or..J..X|
|00004810| 24 2c 78 25 0d 1a 54 09 | ee 20 85 20 87 0d 1a 5e |$,x%..T.|. . ...^|
|00004820| 08 78 25 3d 9e 0d 1a 68 | 1b 58 24 3d f6 24 2b 22 |.x%=...h|.X$=.$+"|
|00004830| 20 61 74 20 6c 69 6e 65 | 20 22 2b c3 28 78 25 29 | at line| "+.(x%)|
|00004840| 0d 1a 72 10 de 45 72 72 | 6f 72 4d 73 67 25 33 36 |..r..Err|orMsg%36|
|00004850| 0d 1a 7c 45 45 72 72 6f | 72 4d 73 67 25 21 30 3d |..|EErro|rMsg%!0=|
|00004860| 33 36 3a 45 72 72 6f 72 | 4d 73 67 25 21 31 32 3d |36:Error|Msg%!12=|
|00004870| 30 3a 45 72 72 6f 72 4d | 73 67 25 21 31 36 3d 26 |0:ErrorM|sg%!16=&|
|00004880| 38 31 30 38 30 3a 45 72 | 72 6f 72 4d 73 67 25 21 |81080:Er|rorMsg%!|
|00004890| 32 30 3d 78 25 0d 1a 86 | 1f 24 28 45 72 72 6f 72 |20=x%...|.$(Error|
|000048a0| 4d 73 67 25 2b 32 34 29 | 3d 22 21 52 75 6e 49 6d |Msg%+24)|="!RunIm|
|000048b0| 61 67 65 22 0d 1a 90 25 | c8 99 22 57 69 6d 70 5f |age"...%|.."Wimp_|
|000048c0| 53 65 6e 64 4d 65 73 73 | 61 67 65 22 2c 31 37 2c |SendMess|age",17,|
|000048d0| 45 72 72 6f 72 4d 73 67 | 25 0d 1a 9a 1f f2 57 69 |ErrorMsg|%.....Wi|
|000048e0| 6d 70 5f 57 69 6e 64 6f | 77 41 6c 65 72 74 28 74 |mp_Windo|wAlert(t|
|000048f0| 61 73 6b 24 2c 58 24 29 | 0d 1a a4 13 f2 57 69 6d |ask$,X$)|.....Wim|
|00004900| 70 5f 43 6c 6f 73 65 44 | 6f 77 6e 0d 1a ae 05 e1 |p_CloseD|own.....|
|00004910| 0d 1a b8 05 3a 0d 1a c2 | 15 dd 20 f2 57 69 6d 70 |....:...|.. .Wimp|
|00004920| 5f 43 6c 6f 73 65 44 6f | 77 6e 0d 1a cc 23 c8 99 |_CloseDo|wn...#..|
|00004930| 22 57 69 6d 70 5f 43 6c | 6f 73 65 44 6f 77 6e 22 |"Wimp_Cl|oseDown"|
|00004940| 2c 74 61 73 6b 25 2c 22 | 54 41 53 4b 22 0d 1a d6 |,task%,"|TASK"...|
|00004950| 05 e1 0d 1a e0 05 3a 0d | 1a ea 10 dd 20 f2 57 69 |......:.|.... .Wi|
|00004960| 6d 70 5f 51 75 69 74 0d | 1a f4 0f 66 69 6e 69 73 |mp_Quit.|...finis|
|00004970| 68 65 64 25 3d b9 0d 1a | fe 05 e1 0d 1b 08 05 3a |hed%=...|.......:|
|00004980| 0d 1b 12 23 dd 20 a4 57 | 69 6d 70 5f 52 65 61 64 |...#. .W|imp_Read|
|00004990| 56 61 72 69 61 62 6c 65 | 28 56 61 72 69 61 62 6c |Variable|(Variabl|
|000049a0| 65 24 29 0d 1b 1c 1b ea | 6c 65 6e 25 2c 72 65 73 |e$).....|len%,res|
|000049b0| 75 6c 74 25 2c 76 61 72 | 69 61 62 6c 65 25 0d 1b |ult%,var|iable%..|
|000049c0| 26 14 24 77 69 6d 70 25 | 3d 56 61 72 69 61 62 6c |&.$wimp%|=Variabl|
|000049d0| 65 24 0d 1b 30 33 c8 99 | 22 4f 53 5f 52 65 61 64 |e$..03..|"OS_Read|
|000049e0| 56 61 72 56 61 6c 22 2c | 77 69 6d 70 25 2c 77 69 |VarVal",|wimp%,wi|
|000049f0| 6d 70 25 2b 32 35 35 2c | 32 35 35 2c 2c 33 b8 2c |mp%+255,|255,,3.,|
|00004a00| 2c 6c 65 6e 25 0d 1b 3a | 17 77 69 6d 70 25 3f 28 |,len%..:|.wimp%?(|
|00004a10| 6c 65 6e 25 2b 32 35 35 | 29 3d 31 33 0d 1b 44 11 |len%+255|)=13..D.|
|00004a20| 3d 24 28 77 69 6d 70 25 | 2b 32 35 35 29 0d 1b 4e |=$(wimp%|+255)..N|
|00004a30| 05 3a 0d 1b 58 05 3a 0d | 1b 62 06 f4 7c 0d 1b 6c |.:..X.:.|.b..|..l|
|00004a40| 06 f4 7c 0d 1b 76 06 f4 | 7c 0d 1b 80 06 f4 7c 0d |..|..v..||.....|.|
|00004a50| 1b 8a 29 f4 7c 20 20 20 | 20 20 20 20 20 20 20 20 |..).| | |
|00004a60| 20 20 20 20 20 20 20 20 | 2d 2d 2d 2d 2d 2d 2d 2d | |--------|
|00004a70| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 1b 94 27 f4 7c 20 20 |--------|...'.| |
|00004a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004a90| 20 20 20 57 69 6d 70 20 | 50 6f 6c 6c 69 6e 67 0d | Wimp |Polling.|
|00004aa0| 1b 9e 29 f4 7c 20 20 20 | 20 20 20 20 20 20 20 20 |..).| | |
|00004ab0| 20 20 20 20 20 20 20 20 | 2d 2d 2d 2d 2d 2d 2d 2d | |--------|
|00004ac0| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 1b a8 06 f4 7c 0d 1b |--------|.....|..|
|00004ad0| b2 06 f4 7c 0d 1b bc 05 | 3a 0d 1b c6 18 dd 20 f2 |...|....|:..... .|
|00004ae0| 57 69 6d 70 5f 57 61 69 | 74 46 6f 72 45 76 65 6e |Wimp_Wai|tForEven|
|00004af0| 74 0d 1b d0 12 ea 20 6d | 61 73 6b 25 2c 65 76 65 |t..... m|ask%,eve|
|00004b00| 6e 74 25 0d 1b da 0f 66 | 69 6e 69 73 68 65 64 25 |nt%....f|inished%|
|00004b10| 3d a3 0d 1b e4 17 6d 61 | 73 6b 25 3d 25 31 31 31 |=.....ma|sk%=%111|
|00004b20| 30 30 30 30 31 31 30 30 | 31 0d 1b ee 05 f5 0d 1b |00001100|1.......|
|00004b30| f8 13 20 f2 45 76 65 6e | 74 5f 44 65 66 61 75 6c |.. .Even|t_Defaul|
|00004b40| 74 0d 1c 02 27 20 c8 99 | 22 57 69 6d 70 5f 50 6f |t...' ..|"Wimp_Po|
|00004b50| 6c 6c 22 2c 6d 61 73 6b | 25 2c 77 69 6d 70 25 20 |ll",mask|%,wimp% |
|00004b60| b8 20 65 76 65 6e 74 25 | 0d 1c 0c 10 20 c8 8e 20 |. event%|.... .. |
|00004b70| 65 76 65 6e 74 25 20 ca | 0d 1c 16 0b 20 20 c9 30 |event% .|.... .0|
|00004b80| 20 3a 20 0d 1c 20 1f 20 | 20 c9 31 20 3a 20 f2 57 | : .. . | .1 : .W|
|00004b90| 69 6d 70 5f 50 6f 6c 6c | 44 72 61 77 57 69 6e 64 |imp_Poll|DrawWind|
|00004ba0| 6f 77 0d 1c 2a 23 20 20 | c9 32 20 3a 20 f2 45 76 |ow..*# |.2 : .Ev|
|00004bb0| 65 6e 74 5f 4f 70 65 6e | 57 69 6e 64 6f 77 28 77 |ent_Open|Window(w|
|00004bc0| 69 6d 70 25 29 0d 1c 34 | 20 20 20 c9 33 20 3a 20 |imp%)..4| .3 : |
|00004bd0| f2 57 69 6d 70 5f 50 6f | 6c 6c 43 6c 6f 73 65 57 |.Wimp_Po|llCloseW|
|00004be0| 69 6e 64 6f 77 0d 1c 3e | 0a 20 20 c9 34 20 3a 0d |indow..>|. .4 :.|
|00004bf0| 1c 48 0a 20 20 c9 35 20 | 3a 0d 1c 52 1f 20 20 c9 |.H. .5 |:..R. .|
|00004c00| 36 20 3a 20 f2 57 69 6d | 70 5f 50 6f 6c 6c 4d 6f |6 : .Wim|p_PollMo|
|00004c10| 75 73 65 43 6c 69 63 6b | 0d 1c 5c 20 20 20 c9 37 |useClick|..\ .7|
|00004c20| 20 3a 20 f2 57 69 6d 70 | 5f 50 6f 6c 6c 53 61 76 | : .Wimp|_PollSav|
|00004c30| 65 4d 65 73 73 61 67 65 | 0d 1c 66 1d 20 20 c9 38 |eMessage|..f. .8|
|00004c40| 20 3a 20 f2 57 69 6d 70 | 5f 50 6f 6c 6c 4b 65 79 | : .Wimp|_PollKey|
|00004c50| 50 72 65 73 73 0d 1c 70 | 23 20 20 c9 39 20 3a 20 |Press..p|# .9 : |
|00004c60| f2 45 76 65 6e 74 5f 4d | 65 6e 75 43 68 6f 69 63 |.Event_M|enuChoic|
|00004c70| 65 28 6d 65 6e 75 25 29 | 0d 1c 7a 0a 20 20 c9 31 |e(menu%)|..z. .1|
|00004c80| 30 3a 0d 1c 84 0a 20 20 | c9 31 31 3a 0d 1c 8e 0a |0:.... |.11:....|
|00004c90| 20 20 c9 31 32 3a 0d 1c | 98 20 20 20 c9 31 37 2c | .12:..|. .17,|
|00004ca0| 31 38 3a 20 f2 57 69 6d | 70 5f 50 6f 6c 6c 4d 65 |18: .Wim|p_PollMe|
|00004cb0| 73 73 61 67 65 73 0d 1c | a2 0a 20 20 c9 31 39 3a |ssages..|.. .19:|
|00004cc0| 0d 1c ac 06 20 cb 0d 1c | b6 0f fd 20 66 69 6e 69 |.... ...|... fini|
|00004cd0| 73 68 65 64 25 0d 1c c0 | 05 e1 0d 1c ca 05 3a 0d |shed%...|......:.|
|00004ce0| 1c d4 1a dd 20 f2 57 69 | 6d 70 5f 50 6f 6c 6c 44 |.... .Wi|mp_PollD|
|00004cf0| 72 61 77 57 69 6e 64 6f | 77 0d 1c de 0b ea 20 6d |rawWindo|w..... m|
|00004d00| 6f 72 65 25 0d 1c e8 26 | c8 99 22 57 69 6d 70 5f |ore%...&|.."Wimp_|
|00004d10| 52 65 64 72 61 77 57 69 | 6e 64 6f 77 22 2c 2c 77 |RedrawWi|ndow",,w|
|00004d20| 69 6d 70 25 b8 6d 6f 72 | 65 25 0d 1c f2 13 77 69 |imp%.mor|e%....wi|
|00004d30| 6e 64 6f 77 25 3d 77 69 | 6d 70 25 21 30 0d 1c fc |ndow%=wi|mp%!0...|
|00004d40| 41 78 5f 6f 72 69 67 69 | 6e 25 3d 31 36 2b 77 69 |Ax_origi|n%=16+wi|
|00004d50| 6d 70 25 21 34 2d 77 69 | 6d 70 25 21 32 30 3a 79 |mp%!4-wi|mp%!20:y|
|00004d60| 5f 6f 72 69 67 69 6e 25 | 3d 2d 31 36 2b 77 69 6d |_origin%|=-16+wim|
|00004d70| 70 25 21 31 36 2d 77 69 | 6d 70 25 21 32 34 0d 1d |p%!16-wi|mp%!24..|
|00004d80| 06 0b c8 95 6d 6f 72 65 | 25 0d 1d 10 30 20 e7 20 |....more|%...0 . |
|00004d90| 69 6e 74 65 72 66 61 63 | 65 25 20 8c 20 c8 99 22 |interfac|e% . .."|
|00004da0| 57 69 6d 70 5f 42 6f 72 | 64 65 72 57 69 6e 64 6f |Wimp_Bor|derWindo|
|00004db0| 77 22 2c 2c 77 69 6d 70 | 25 0d 1d 1a 2d 20 f2 45 |w",,wimp|%...- .E|
|00004dc0| 76 65 6e 74 5f 44 72 61 | 77 28 77 69 6e 64 6f 77 |vent_Dra|w(window|
|00004dd0| 25 2c 78 5f 6f 72 69 67 | 69 6e 25 2c 79 5f 6f 72 |%,x_orig|in%,y_or|
|00004de0| 69 67 69 6e 25 29 0d 1d | 24 27 20 c8 99 22 57 69 |igin%)..|$' .."Wi|
|00004df0| 6d 70 5f 47 65 74 52 65 | 63 74 61 6e 67 6c 65 22 |mp_GetRe|ctangle"|
|00004e00| 2c 2c 77 69 6d 70 25 b8 | 6d 6f 72 65 25 0d 1d 2e |,,wimp%.|more%...|
|00004e10| 05 ce 0d 1d 38 05 e1 0d | 1d 42 05 3a 0d 1d 4c 1b |....8...|.B.:..L.|
|00004e20| dd 20 f2 57 69 6d 70 5f | 50 6f 6c 6c 43 6c 6f 73 |. .Wimp_|PollClos|
|00004e30| 65 57 69 6e 64 6f 77 0d | 1d 56 25 20 20 c8 99 20 |eWindow.|.V% .. |
|00004e40| 22 57 69 6d 70 5f 47 65 | 74 50 6f 69 6e 74 65 72 |"Wimp_Ge|tPointer|
|00004e50| 49 6e 66 6f 22 2c 2c 77 | 69 6d 70 25 0d 1d 60 29 |Info",,w|imp%..`)|
|00004e60| 20 20 77 69 6e 64 6f 77 | 25 3d 77 69 6d 70 25 21 | window|%=wimp%!|
|00004e70| 31 32 20 3a 20 62 75 74 | 74 6f 6e 73 25 3d 77 69 |12 : but|tons%=wi|
|00004e80| 6d 70 25 21 38 0d 1d 6a | 29 20 f2 45 76 65 6e 74 |mp%!8..j|) .Event|
|00004e90| 5f 57 69 6e 64 6f 77 43 | 6c 6f 73 65 28 77 69 6e |_WindowC|lose(win|
|00004ea0| 64 6f 77 25 2c 62 75 74 | 74 6f 6e 73 25 29 0d 1d |dow%,but|tons%)..|
|00004eb0| 74 20 20 f2 45 76 65 6e | 74 5f 43 6c 6f 73 65 57 |t .Even|t_CloseW|
|00004ec0| 69 6e 64 6f 77 28 77 69 | 6e 64 6f 77 25 29 0d 1d |indow(wi|ndow%)..|
|00004ed0| 7e 05 e1 0d 1d 88 05 3a | 0d 1d 92 1a dd 20 f2 57 |~......:|..... .W|
|00004ee0| 69 6d 70 5f 50 6f 6c 6c | 4d 6f 75 73 65 43 6c 69 |imp_Poll|MouseCli|
|00004ef0| 63 6b 0d 1d 9c 4a 20 62 | 75 74 74 6f 6e 25 3d 77 |ck...J b|utton%=w|
|00004f00| 69 6d 70 25 21 38 3a 77 | 69 6e 64 6f 77 25 3d 77 |imp%!8:w|indow%=w|
|00004f10| 69 6d 70 25 21 31 32 3a | 69 63 6f 6e 25 3d 77 69 |imp%!12:|icon%=wi|
|00004f20| 6d 70 25 21 31 36 3a 78 | 25 3d 77 69 6d 70 25 21 |mp%!16:x|%=wimp%!|
|00004f30| 30 3a 79 25 3d 77 69 6d | 70 25 21 34 0d 1d a6 11 |0:y%=wim|p%!4....|
|00004f40| 20 c8 8e 20 62 75 74 74 | 6f 6e 25 20 ca 0d 1d b0 | .. butt|on% ....|
|00004f50| 22 20 20 20 c9 32 20 20 | 20 20 3a 20 f2 57 69 6d |" .2 | : .Wim|
|00004f60| 70 5f 50 6f 6c 6c 4d 65 | 6e 75 50 6f 70 55 70 0d |p_PollMe|nuPopUp.|
|00004f70| 1d ba 23 20 20 20 7f 3a | 20 c8 8e 20 a4 45 76 65 |..# .:| .. .Eve|
|00004f80| 6e 74 5f 53 61 76 65 28 | 77 69 6e 64 6f 77 25 29 |nt_Save(|window%)|
|00004f90| 20 ca 0d 1d c4 2c 20 20 | 20 20 20 20 20 20 20 20 | ...., | |
|00004fa0| 20 20 20 20 20 c9 20 b9 | 20 3a 20 f2 57 69 6d 70 | . .| : .Wimp|
|00004fb0| 5f 50 6f 6c 6c 4d 6f 75 | 73 65 53 61 76 65 0d 1d |_PollMou|seSave..|
|00004fc0| ce 31 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.1 | |
|00004fd0| 20 c9 20 a3 3a 20 f2 57 | 69 6d 70 5f 50 6f 6c 6c | . .: .W|imp_Poll|
|00004fe0| 45 76 65 6e 74 4d 6f 75 | 73 65 43 6c 69 63 6b 0d |EventMou|seClick.|
|00004ff0| 1d d8 13 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |... | |
|00005000| 20 cb 0d 1d e2 06 20 cb | 0d 1d ec 05 e1 0d 1d f6 | ..... .|........|
|00005010| 05 3a 0d 1e 00 19 dd 20 | f2 57 69 6d 70 5f 50 6f |.:..... |.Wimp_Po|
|00005020| 6c 6c 4d 65 6e 75 50 6f | 70 55 70 0d 1e 0a 1e 6d |llMenuPo|pUp....m|
|00005030| 65 6e 75 25 3d a4 45 76 | 65 6e 74 5f 4d 65 6e 75 |enu%=.Ev|ent_Menu|
|00005040| 28 77 69 6e 64 6f 77 25 | 29 0d 1e 14 11 20 20 c8 |(window%|).... .|
|00005050| 8e 20 6d 65 6e 75 25 20 | 20 ca 0d 1e 1e 0b 20 20 |. menu% | ..... |
|00005060| 20 c9 20 a3 3a 0d 1e 28 | 0a 20 20 20 7f 20 3a 0d | . .:..(|. . :.|
|00005070| 1e 32 15 20 20 20 20 20 | c8 8e 20 77 69 6e 64 6f |.2. |.. windo|
|00005080| 77 25 20 ca 0d 1e 3c 17 | 20 20 20 20 20 20 c9 20 |w% ...<.| . |
|00005090| 2d 32 20 20 20 3a 20 6e | 25 3d 30 0d 1e 46 33 20 |-2 : n|%=0..F3 |
|000050a0| 20 20 20 20 20 20 20 c8 | 95 20 28 28 42 61 72 5f | .|. ((Bar_|
|000050b0| 4d 65 6e 75 25 21 28 32 | 38 2b 6e 25 2a 32 34 29 |Menu%!(2|8+n%*24)|
|000050c0| 29 80 25 31 30 30 30 30 | 30 30 30 29 3d 30 0d 1e |).%10000|000)=0..|
|000050d0| 50 12 20 20 20 20 20 20 | 20 20 20 6e 25 2b 3d 31 |P. | n%+=1|
|000050e0| 0d 1e 5a 0d 20 20 20 20 | 20 20 20 20 ce 0d 1e 64 |..Z. | ...d|
|000050f0| 3a 20 20 20 20 20 20 20 | 20 c8 99 20 22 57 69 6d |: | .. "Wim|
|00005100| 70 5f 43 72 65 61 74 65 | 4d 65 6e 75 22 2c 2c 42 |p_Create|Menu",,B|
|00005110| 61 72 5f 4d 65 6e 75 25 | 2c 78 25 2d 36 34 2c 39 |ar_Menu%|,x%-64,9|
|00005120| 36 2b 6e 25 2a 34 34 0d | 1e 6e 34 20 20 20 20 20 |6+n%*44.|.n4 |
|00005130| 20 7f 20 3a 20 c8 99 22 | 57 69 6d 70 5f 43 72 65 | . : .."|Wimp_Cre|
|00005140| 61 74 65 4d 65 6e 75 22 | 2c 2c 6d 65 6e 75 25 2c |ateMenu"|,,menu%,|
|00005150| 78 25 2d 36 34 2c 79 25 | 2b 32 30 0d 1e 78 0a 20 |x%-64,y%|+20..x. |
|00005160| 20 20 20 20 cb 0d 1e 82 | 07 20 20 cb 0d 1e 8c 05 | ....|. .....|
|00005170| e1 0d 1e 96 05 3a 0d 1e | a0 19 dd 20 f2 57 69 6d |.....:..|... .Wim|
|00005180| 70 5f 50 6f 6c 6c 4d 6f | 75 73 65 53 61 76 65 0d |p_PollMo|useSave.|
|00005190| 1e aa 0f 20 c8 8e 20 69 | 63 6f 6e 25 20 ca 0d 1e |... .. i|con% ...|
|000051a0| b4 3c 20 20 c9 20 30 20 | 3a 20 e7 20 62 75 74 74 |.< . 0 |: . butt|
|000051b0| 6f 6e 25 20 80 20 26 35 | 30 20 8c 20 f2 57 69 6d |on% . &5|0 . .Wim|
|000051c0| 70 5f 50 6f 6c 6c 44 72 | 61 67 42 6f 78 28 77 69 |p_PollDr|agBox(wi|
|000051d0| 6e 64 6f 77 25 2c 30 2c | 31 29 0d 1e be 38 20 20 |ndow%,0,|1)...8 |
|000051e0| c9 20 32 20 3a 20 e7 20 | 62 75 74 74 6f 6e 25 20 |. 2 : . |button% |
|000051f0| 80 20 35 20 8c 20 20 f2 | 57 69 6d 70 5f 50 6f 6c |. 5 . .|Wimp_Pol|
|00005200| 6c 53 61 76 65 46 69 6c | 65 28 77 69 6e 64 6f 77 |lSaveFil|e(window|
|00005210| 25 29 0d 1e c8 06 20 cb | 0d 1e d2 05 e1 0d 1e dc |%).... .|........|
|00005220| 05 3a 0d 1e e6 1f dd 20 | f2 57 69 6d 70 5f 50 6f |.:..... |.Wimp_Po|
|00005230| 6c 6c 45 76 65 6e 74 4d | 6f 75 73 65 43 6c 69 63 |llEventM|ouseClic|
|00005240| 6b 0d 1e f0 2e 20 e7 20 | 69 6e 74 65 72 66 61 63 |k.... . |interfac|
|00005250| 65 25 20 8c 20 c8 99 22 | 57 69 6d 70 5f 42 6f 72 |e% . .."|Wimp_Bor|
|00005260| 64 65 72 49 63 6f 6e 22 | 2c 2c 77 69 6d 70 25 0d |derIcon"|,,wimp%.|
|00005270| 1e fa 33 20 f2 45 76 65 | 6e 74 5f 4d 6f 75 73 65 |..3 .Eve|nt_Mouse|
|00005280| 43 6c 69 63 6b 28 77 69 | 6e 64 6f 77 25 2c 69 63 |Click(wi|ndow%,ic|
|00005290| 6f 6e 25 2c 62 75 74 74 | 6f 6e 25 2c 78 25 2c 79 |on%,butt|on%,x%,y|
|000052a0| 25 29 0d 1f 04 15 20 c8 | 8e 20 20 69 6e 74 65 72 |%).... .|. inter|
|000052b0| 66 61 63 65 25 20 ca 0d | 1f 0e 0b 20 20 c9 20 b9 |face% ..|... . .|
|000052c0| 20 3a 0d 1f 18 28 20 20 | 20 77 69 6d 70 25 21 30 | :...( | wimp%!0|
|000052d0| 3d 78 25 3a 77 69 6d 70 | 25 21 34 3d 79 25 20 3a |=x%:wimp|%!4=y% :|
|000052e0| 20 77 69 6d 70 25 21 38 | 3d 30 0d 1f 22 28 20 20 | wimp%!8|=0.."( |
|000052f0| 20 77 69 6d 70 25 21 31 | 32 3d 77 69 6e 64 6f 77 | wimp%!1|2=window|
|00005300| 25 20 3a 20 77 69 6d 70 | 25 21 31 36 3d 69 63 6f |% : wimp|%!16=ico|
|00005310| 6e 25 0d 1f 2c 21 20 20 | 20 c8 99 22 57 69 6d 70 |n%..,! | .."Wimp|
|00005320| 5f 42 6f 72 64 65 72 49 | 63 6f 6e 22 2c 2c 77 69 |_BorderI|con",,wi|
|00005330| 6d 70 25 0d 1f 36 06 20 | cb 0d 1f 40 05 e1 0d 1f |mp%..6. |...@....|
|00005340| 4a 05 3a 0d 1f 54 21 dd | 20 f2 57 69 6d 70 5f 50 |J.:..T!.| .Wimp_P|
|00005350| 6f 6c 6c 53 61 76 65 46 | 69 6c 65 28 77 69 6e 64 |ollSaveF|ile(wind|
|00005360| 6f 77 25 29 0d 1f 5e 0b | 20 ea 66 69 6c 65 24 0d |ow%)..^.| .file$.|
|00005370| 1f 68 14 20 77 69 6d 70 | 25 21 30 3d 77 69 6e 64 |.h. wimp|%!0=wind|
|00005380| 6f 77 25 0d 1f 72 1a 20 | 77 69 6d 70 25 21 34 3d |ow%..r. |wimp%!4=|
|00005390| 64 72 61 67 69 63 6f 6e | 74 65 78 74 25 0d 1f 7c |dragicon|text%..||
|000053a0| 22 20 c8 99 20 22 57 69 | 6d 70 5f 47 65 74 49 63 |" .. "Wi|mp_GetIc|
|000053b0| 6f 6e 53 74 61 74 65 22 | 2c 2c 77 69 6d 70 25 0d |onState"|,,wimp%.|
|000053c0| 1f 86 16 20 66 69 6c 65 | 24 3d 24 28 77 69 6d 70 |... file|$=$(wimp|
|000053d0| 25 21 32 38 29 0d 1f 90 | 15 20 c8 8e 20 a7 66 69 |%!28)...|. .. .fi|
|000053e0| 6c 65 24 2c 22 2e 22 29 | 20 ca 0d 1f 9a 47 20 20 |le$,".")| ....G |
|000053f0| 20 c9 20 30 3a 20 20 20 | 24 28 77 69 6d 70 25 2b | . 0: |$(wimp%+|
|00005400| 34 29 3d 22 54 6f 20 73 | 61 76 65 2c 20 64 72 61 |4)="To s|ave, dra|
|00005410| 67 20 74 68 65 20 69 63 | 6f 6e 20 74 6f 20 61 20 |g the ic|on to a |
|00005420| 64 69 72 65 63 74 6f 72 | 79 20 77 69 6e 64 6f 77 |director|y window|
|00005430| 22 0d 1f a4 35 20 20 20 | 20 20 20 20 20 20 20 20 |"...5 | |
|00005440| 20 20 c8 99 20 22 57 69 | 6d 70 5f 52 65 70 6f 72 | .. "Wi|mp_Repor|
|00005450| 74 45 72 72 6f 72 22 2c | 77 69 6d 70 25 2c 31 36 |tError",|wimp%,16|
|00005460| 2c 74 61 73 6b 24 0d 1f | ae 27 20 20 20 7f 3a f2 |,task$..|.' .:.|
|00005470| 45 76 65 6e 74 5f 53 61 | 76 65 46 69 6c 65 28 66 |Event_Sa|veFile(f|
|00005480| 69 6c 65 24 2c 77 69 6e | 64 6f 77 25 29 0d 1f b8 |ile$,win|dow%)...|
|00005490| 06 20 cb 0d 1f c2 1b 20 | c8 99 22 57 69 6d 70 5f |. ..... |.."Wimp_|
|000054a0| 43 72 65 61 74 65 4d 65 | 6e 75 22 2c 2d 31 0d 1f |CreateMe|nu",-1..|
|000054b0| cc 05 e1 0d 1f d6 05 3a | 0d 1f e0 30 dd 20 f2 57 |.......:|...0. .W|
|000054c0| 69 6d 70 5f 50 6f 6c 6c | 44 72 61 67 42 6f 78 28 |imp_Poll|DragBox(|
|000054d0| 77 69 6e 64 6f 77 25 2c | 69 63 6f 6e 25 2c 69 63 |window%,|icon%,ic|
|000054e0| 6f 6e 74 65 78 74 25 29 | 0d 1f ea 0a ea 78 25 2c |ontext%)|.....x%,|
|000054f0| 79 25 0d 1f f4 3d 20 64 | 72 61 67 77 69 6e 25 3d |y%...= d|ragwin%=|
|00005500| 77 69 6e 64 6f 77 25 3a | 64 72 61 67 69 63 6f 6e |window%:|dragicon|
|00005510| 25 3d 69 63 6f 6e 25 3a | 64 72 61 67 69 63 6f 6e |%=icon%:|dragicon|
|00005520| 74 65 78 74 25 3d 69 63 | 6f 6e 74 65 78 74 25 0d |text%=ic|ontext%.|
|00005530| 1f fe 13 20 21 77 69 6d | 70 25 3d 77 69 6e 64 6f |... !wim|p%=windo|
|00005540| 77 25 0d 20 08 23 20 c8 | 99 22 57 69 6d 70 5f 47 |w%. .# .|."Wimp_G|
|00005550| 65 74 57 69 6e 64 6f 77 | 53 74 61 74 65 22 2c 2c |etWindow|State",,|
|00005560| 77 69 6d 70 25 0d 20 12 | 2d 20 78 25 3d 77 69 6d |wimp%. .|- x%=wim|
|00005570| 70 25 21 34 2d 77 69 6d | 70 25 21 32 30 3a 79 25 |p%!4-wim|p%!20:y%|
|00005580| 3d 77 69 6d 70 25 21 31 | 36 2d 77 69 6d 70 25 21 |=wimp%!1|6-wimp%!|
|00005590| 32 34 0d 20 1c 16 20 77 | 69 6d 70 25 21 34 3d 64 |24. .. w|imp%!4=d|
|000055a0| 72 61 67 69 63 6f 6e 25 | 0d 20 26 21 20 c8 99 22 |ragicon%|. &! .."|
|000055b0| 57 69 6d 70 5f 47 65 74 | 49 63 6f 6e 53 74 61 74 |Wimp_Get|IconStat|
|000055c0| 65 22 2c 2c 77 69 6d 70 | 25 0d 20 30 13 20 21 77 |e",,wimp|%. 0. !w|
|000055d0| 69 6d 70 25 3d 77 69 6e | 64 6f 77 25 0d 20 3a 1d |imp%=win|dow%. :.|
|000055e0| 20 77 69 6d 70 25 21 34 | 3d 35 3a f4 20 54 79 70 | wimp%!4|=5:. Typ|
|000055f0| 65 20 6f 66 20 64 72 61 | 67 0d 20 44 2c 20 77 69 |e of dra|g. D, wi|
|00005600| 6d 70 25 21 38 3d 78 25 | 2b 77 69 6d 70 25 21 38 |mp%!8=x%|+wimp%!8|
|00005610| 3a 77 69 6d 70 25 21 31 | 32 3d 79 25 2b 77 69 6d |:wimp%!1|2=y%+wim|
|00005620| 70 25 21 31 32 0d 20 4e | 2e 20 77 69 6d 70 25 21 |p%!12. N|. wimp%!|
|00005630| 31 36 3d 78 25 2b 77 69 | 6d 70 25 21 31 36 3a 77 |16=x%+wi|mp%!16:w|
|00005640| 69 6d 70 25 21 32 30 3d | 79 25 2b 77 69 6d 70 25 |imp%!20=|y%+wimp%|
|00005650| 21 32 30 0d 20 58 1a 20 | 77 69 6d 70 25 21 32 34 |!20. X. |wimp%!24|
|00005660| 3d 30 3a 77 69 6d 70 25 | 21 32 38 3d 30 0d 20 62 |=0:wimp%|!28=0. b|
|00005670| 2a 20 77 69 6d 70 25 21 | 33 32 3d 26 37 46 46 46 |* wimp%!|32=&7FFF|
|00005680| 46 46 46 46 3a 77 69 6d | 70 25 21 33 36 3d 26 37 |FFFF:wim|p%!36=&7|
|00005690| 46 46 46 46 46 46 46 0d | 20 6c 1c 20 c8 99 22 57 |FFFFFFF.| l. .."W|
|000056a0| 69 6d 70 5f 44 72 61 67 | 42 6f 78 22 2c 2c 77 69 |imp_Drag|Box",,wi|
|000056b0| 6d 70 25 0d 20 76 05 e1 | 0d 20 80 05 3a 0d 20 8a |mp%. v..|. ..:. .|
|000056c0| 18 dd 20 f2 57 69 6d 70 | 5f 50 6f 6c 6c 4b 65 79 |.. .Wimp|_PollKey|
|000056d0| 50 72 65 73 73 0d 20 94 | 30 20 77 69 6e 64 6f 77 |Press. .|0 window|
|000056e0| 25 3d 77 69 6d 70 25 21 | 30 3a 69 63 6f 6e 25 3d |%=wimp%!|0:icon%=|
|000056f0| 77 69 6d 70 25 21 34 3a | 6b 65 79 25 3d 77 69 6d |wimp%!4:|key%=wim|
|00005700| 70 25 21 32 34 0d 20 9e | 1e 20 c8 8e 20 a4 45 76 |p%!24. .|. .. .Ev|
|00005710| 65 6e 74 5f 53 61 76 65 | 28 77 69 6e 64 6f 77 25 |ent_Save|(window%|
|00005720| 29 20 ca 0d 20 a8 28 20 | 20 20 c9 20 b9 20 3a 20 |) .. .( | . . : |
|00005730| f2 57 69 6d 70 50 6f 6c | 6c 5f 53 61 76 65 46 69 |.WimpPol|l_SaveFi|
|00005740| 6c 65 28 77 69 6e 64 6f | 77 25 29 0d 20 b2 2f 20 |le(windo|w%). ./ |
|00005750| 20 20 c9 20 a3 3a 20 f2 | 45 76 65 6e 74 5f 4b 65 | . .: .|Event_Ke|
|00005760| 79 50 72 65 73 73 28 77 | 69 6e 64 6f 77 25 2c 69 |yPress(w|indow%,i|
|00005770| 63 6f 6e 25 2c 6b 65 79 | 25 29 0d 20 bc 06 20 cb |con%,key|%). .. .|
|00005780| 0d 20 c6 05 e1 0d 20 d0 | 05 3a 0d 20 da 1b dd 20 |. .... .|.:. ... |
|00005790| f2 57 69 6d 70 5f 50 6f | 6c 6c 53 61 76 65 4d 65 |.Wimp_Po|llSaveMe|
|000057a0| 73 73 61 67 65 0d 20 e4 | 1e ea 66 69 6c 65 24 2c |ssage. .|..file$,|
|000057b0| 77 69 6e 64 6f 77 25 2c | 69 63 6f 6e 25 2c 78 25 |window%,|icon%,x%|
|000057c0| 2c 79 25 0d 20 ee 23 20 | c8 99 22 57 69 6d 70 5f |,y%. .# |.."Wimp_|
|000057d0| 47 65 74 50 6f 69 6e 74 | 65 72 49 6e 66 6f 22 2c |GetPoint|erInfo",|
|000057e0| 2c 77 69 6d 70 25 0d 20 | f8 3a 20 77 69 6e 64 6f |,wimp%. |.: windo|
|000057f0| 77 25 3d 77 69 6d 70 25 | 21 31 32 3a 69 63 6f 6e |w%=wimp%|!12:icon|
|00005800| 25 3d 77 69 6d 70 25 21 | 31 36 3a 78 25 3d 77 69 |%=wimp%!|16:x%=wi|
|00005810| 6d 70 25 21 30 3a 79 25 | 3d 77 69 6d 70 25 21 34 |mp%!0:y%|=wimp%!4|
|00005820| 0d 21 02 4d 20 77 69 6d | 70 25 21 30 3d 64 72 61 |.!.M wim|p%!0=dra|
|00005830| 67 77 69 6e 25 20 3a 20 | 77 69 6d 70 25 21 34 3d |gwin% : |wimp%!4=|
|00005840| 64 72 61 67 69 63 6f 6e | 74 65 78 74 25 20 3a 20 |dragicon|text% : |
|00005850| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 49 63 6f 6e |.. "Wimp|_GetIcon|
|00005860| 53 74 61 74 65 22 2c 2c | 77 69 6d 70 25 0d 21 0c |State",,|wimp%.!.|
|00005870| 16 20 66 69 6c 65 24 3d | 24 28 77 69 6d 70 25 21 |. file$=|$(wimp%!|
|00005880| 32 38 29 0d 21 16 2b 20 | 66 69 6c 65 24 3d a4 57 |28).!.+ |file$=.W|
|00005890| 69 6d 70 5f 47 65 74 46 | 69 6c 65 46 72 6f 6d 50 |imp_GetF|ileFromP|
|000058a0| 61 74 68 6e 61 6d 65 28 | 66 69 6c 65 24 29 0d 21 |athname(|file$).!|
|000058b0| 20 15 20 77 69 6d 70 25 | 21 32 30 3d 77 69 6e 64 | . wimp%|!20=wind|
|000058c0| 6f 77 25 0d 21 2a 13 20 | 77 69 6d 70 25 21 32 34 |ow%.!*. |wimp%!24|
|000058d0| 3d 69 63 6f 6e 25 0d 21 | 34 1c 20 77 69 6d 70 25 |=icon%.!|4. wimp%|
|000058e0| 21 32 38 3d 78 25 3a 77 | 69 6d 70 25 21 33 32 3d |!28=x%:w|imp%!32=|
|000058f0| 79 25 0d 21 3e 15 20 77 | 69 6d 70 25 21 33 36 3d |y%.!>. w|imp%!36=|
|00005900| 6c 65 6e 67 74 68 25 0d | 21 48 0f 20 77 69 6d 70 |length%.|!H. wimp|
|00005910| 25 21 30 3d 36 34 0d 21 | 52 0f 20 77 69 6d 70 25 |%!0=64.!|R. wimp%|
|00005920| 21 31 32 3d 30 0d 21 5c | 0f 20 77 69 6d 70 25 21 |!12=0.!\|. wimp%!|
|00005930| 31 36 3d 31 0d 21 66 12 | 20 77 69 6d 70 25 21 34 |16=1.!f.| wimp%!4|
|00005940| 30 3d 26 46 46 46 0d 21 | 70 16 20 24 28 77 69 6d |0=&FFF.!|p. $(wim|
|00005950| 70 25 2b 34 34 29 3d 66 | 69 6c 65 24 0d 21 7a 34 |p%+44)=f|ile$.!z4|
|00005960| 20 c8 99 22 57 69 6d 70 | 5f 53 65 6e 64 4d 65 73 | .."Wimp|_SendMes|
|00005970| 73 61 67 65 22 2c 31 37 | 2c 77 69 6d 70 25 2c 77 |sage",17|,wimp%,w|
|00005980| 69 6d 70 25 21 32 30 2c | 77 69 6d 70 25 21 32 34 |imp%!20,|wimp%!24|
|00005990| 0d 21 84 05 e1 0d 21 8e | 05 3a 0d 21 98 18 dd 20 |.!....!.|.:.!... |
|000059a0| f2 57 69 6d 70 5f 50 6f | 6c 6c 4d 65 73 73 61 67 |.Wimp_Po|llMessag|
|000059b0| 65 73 0d 21 a2 0b ea 20 | 66 69 6c 65 24 0d 21 ac |es.!... |file$.!.|
|000059c0| 2c 66 69 6c 65 24 3d a4 | 57 69 6d 70 5f 47 65 74 |,file$=.|Wimp_Get|
|000059d0| 53 74 72 69 6e 67 41 74 | 41 64 64 72 65 73 73 28 |StringAt|Address(|
|000059e0| 77 69 6d 70 25 2b 34 34 | 29 0d 21 b6 15 20 20 20 |wimp%+44|).!.. |
|000059f0| 20 c8 8e 20 77 69 6d 70 | 25 21 31 36 20 ca 0d 21 | .. wimp|%!16 ..!|
|00005a00| c0 1a 20 20 20 20 20 c9 | 20 30 20 3a 20 66 69 6e |.. .| 0 : fin|
|00005a10| 69 73 68 65 64 25 3d b9 | 0d 21 ca 0e 20 20 20 20 |ished%=.|.!.. |
|00005a20| 20 c9 20 31 20 3a 0d 21 | d4 0e 20 20 20 20 20 c9 | . 1 :.!|.. .|
|00005a30| 20 32 20 3a 0d 21 de 3e | 20 20 20 20 20 20 f4 20 | 2 :.!.>| . |
|00005a40| 50 52 4f 43 57 69 6d 70 | 5f 49 63 6f 6e 50 75 74 |PROCWimp|_IconPut|
|00005a50| 54 65 78 74 28 64 72 61 | 67 77 69 6e 25 2c 64 72 |Text(dra|gwin%,dr|
|00005a60| 61 67 69 63 6f 6e 74 65 | 78 74 25 2c 66 69 6c 65 |agiconte|xt%,file|
|00005a70| 24 29 0d 21 e8 52 20 20 | 20 20 20 20 77 69 6d 70 |$).!.R | wimp|
|00005a80| 25 21 30 3d 64 72 61 67 | 77 69 6e 25 20 3a 20 77 |%!0=drag|win% : w|
|00005a90| 69 6d 70 25 21 34 3d 64 | 72 61 67 69 63 6f 6e 74 |imp%!4=d|ragicont|
|00005aa0| 65 78 74 25 20 3a 20 c8 | 99 20 22 57 69 6d 70 5f |ext% : .|. "Wimp_|
|00005ab0| 47 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 77 |GetIconS|tate",,w|
|00005ac0| 69 6d 70 25 0d 21 f2 1b | 20 20 20 20 20 20 24 28 |imp%.!..| $(|
|00005ad0| 77 69 6d 70 25 21 32 38 | 29 3d 66 69 6c 65 24 0d |wimp%!28|)=file$.|
|00005ae0| 21 fc 4b 20 20 20 20 20 | 20 77 69 6d 70 25 21 30 |!.K | wimp%!0|
|00005af0| 3d 64 72 61 67 77 69 6e | 25 20 3a 20 77 69 6d 70 |=dragwin|% : wimp|
|00005b00| 25 21 34 3d 64 72 61 67 | 69 63 6f 6e 74 65 78 74 |%!4=drag|icontext|
|00005b10| 25 20 3a 20 77 69 6d 70 | 25 21 38 3d 30 20 3a 20 |% : wimp|%!8=0 : |
|00005b20| 77 69 6d 70 25 21 31 32 | 3d 30 0d 22 06 27 20 20 |wimp%!12|=0.".' |
|00005b30| 20 20 20 20 c8 99 20 22 | 57 69 6d 70 5f 53 65 74 | .. "|Wimp_Set|
|00005b40| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 77 69 6d 70 |IconStat|e",,wimp|
|00005b50| 25 0d 22 10 3f 20 20 20 | 20 20 20 f4 20 50 52 4f |%.".? | . PRO|
|00005b60| 43 57 69 6d 70 5f 49 63 | 6f 6e 43 61 72 65 74 28 |CWimp_Ic|onCaret(|
|00005b70| 64 72 61 67 77 69 6e 25 | 2c 64 72 61 67 69 63 6f |dragwin%|,dragico|
|00005b80| 6e 74 65 78 74 25 2c 4c | 45 4e 66 69 6c 65 24 29 |ntext%,L|ENfile$)|
|00005b90| 0d 22 1a 47 20 20 20 20 | 20 20 c8 99 20 22 57 69 |.".G | .. "Wi|
|00005ba0| 6d 70 5f 53 65 74 43 61 | 72 65 74 50 6f 73 69 74 |mp_SetCa|retPosit|
|00005bb0| 69 6f 6e 22 2c 64 72 61 | 67 77 69 6e 25 2c 64 72 |ion",dra|gwin%,dr|
|00005bc0| 61 67 69 63 6f 6e 74 65 | 78 74 25 2c 2c 2c 2d 31 |agiconte|xt%,,,-1|
|00005bd0| 2c a9 66 69 6c 65 24 0d | 22 24 29 20 20 20 20 20 |,.file$.|"$) |
|00005be0| 20 f2 45 76 65 6e 74 5f | 53 61 76 65 46 69 6c 65 | .Event_|SaveFile|
|00005bf0| 28 66 69 6c 65 24 2c 64 | 72 61 67 77 69 6e 25 29 |(file$,d|ragwin%)|
|00005c00| 0d 22 2e 0c 20 20 20 20 | 20 c9 20 33 0d 22 38 47 |.".. | . 3."8G|
|00005c10| 20 20 20 20 20 20 74 79 | 70 65 24 3d a4 57 69 6d | ty|pe$=.Wim|
|00005c20| 70 5f 46 69 6c 65 54 79 | 70 65 28 77 69 6d 70 25 |p_FileTy|pe(wimp%|
|00005c30| 21 34 30 29 20 3a 20 f2 | 45 76 65 6e 74 5f 4c 6f |!40) : .|Event_Lo|
|00005c40| 61 64 46 69 6c 65 28 66 | 69 6c 65 24 2c 74 79 70 |adFile(f|ile$,typ|
|00005c50| 65 24 29 0d 22 42 09 20 | 20 20 20 cb 0d 22 4c 05 |e$)."B. | .."L.|
|00005c60| e1 0d 22 56 05 3a 0d 22 | 60 26 dd 20 a4 57 69 6d |.."V.:."|`&. .Wim|
|00005c70| 70 5f 47 65 74 53 74 72 | 69 6e 67 41 74 41 64 64 |p_GetStr|ingAtAdd|
|00005c80| 72 65 73 73 28 61 72 72 | 61 79 25 29 0d 22 6a 0d |ress(arr|ay%)."j.|
|00005c90| ea 73 24 3a 73 24 3d 22 | 22 0d 22 74 3c c8 95 28 |.s$:s$="|"."t<..(|
|00005ca0| 3f 61 72 72 61 79 25 3c | 3e 31 33 29 80 28 3f 61 |?array%<|>13).(?a|
|00005cb0| 72 72 61 79 25 3c 3e 30 | 29 3a 73 24 2b 3d bd 28 |rray%<>0|):s$+=.(|
|00005cc0| 3f 61 72 72 61 79 25 29 | 3a 61 72 72 61 79 25 2b |?array%)|:array%+|
|00005cd0| 3d 31 3a ce 3a 0d 22 7e | 07 3d 73 24 0d 22 88 05 |=1:.:."~|.=s$."..|
|00005ce0| 3a 0d 22 92 23 dd 20 a4 | 57 69 6d 70 5f 47 65 74 |:.".#. .|Wimp_Get|
|00005cf0| 46 69 6c 65 46 72 6f 6d | 50 61 74 68 6e 61 6d 65 |FileFrom|Pathname|
|00005d00| 28 66 24 29 0d 22 9c 11 | c8 8e 20 a7 66 24 2c 22 |(f$)."..|.. .f$,"|
|00005d10| 2e 22 29 20 ca 0d 22 a6 | 10 20 c9 20 30 20 20 20 |.") ..".|. . 0 |
|00005d20| 20 3a 3d 66 24 0d 22 b0 | 37 20 7f 20 3a 3d a4 57 | :=f$.".|7 . :=.W|
|00005d30| 69 6d 70 5f 47 65 74 46 | 69 6c 65 46 72 6f 6d 50 |imp_GetF|ileFromP|
|00005d40| 61 74 68 6e 61 6d 65 28 | c2 66 24 2c a9 28 66 24 |athname(|.f$,.(f$|
|00005d50| 29 2d a7 66 24 2c 22 2e | 22 29 29 29 0d 22 ba 05 |)-.f$,".|")))."..|
|00005d60| cb 0d 22 c4 05 3a 0d 22 | ce 1b dd 20 a4 57 69 6d |.."..:."|... .Wim|
|00005d70| 70 5f 46 69 6c 65 54 79 | 70 65 28 74 79 70 65 25 |p_FileTy|pe(type%|
|00005d80| 29 0d 22 d8 0c c8 8e 74 | 79 70 65 25 ca 0d 22 e2 |)."....t|ype%..".|
|00005d90| 11 c9 26 46 46 46 3a 3d | 22 54 65 78 74 22 0d 22 |..&FFF:=|"Text"."|
|00005da0| ec 11 c9 26 46 46 44 3a | 3d 22 44 61 74 61 22 0d |...&FFD:|="Data".|
|00005db0| 22 f6 12 c9 26 46 46 42 | 3a 3d 22 42 61 73 69 63 |"...&FFB|:="Basic|
|00005dc0| 22 0d 23 00 13 c9 26 46 | 46 39 3a 3d 22 53 70 72 |".#...&F|F9:="Spr|
|00005dd0| 69 74 65 22 0d 23 0a 14 | c9 26 46 45 44 3a 3d 22 |ite".#..|.&FED:="|
|00005de0| 50 61 6c 65 74 74 65 22 | 0d 23 14 15 c9 26 46 45 |Palette"|.#...&FE|
|00005df0| 43 3a 3d 22 54 65 6d 70 | 6c 61 74 65 22 0d 23 1e |C:="Temp|late".#.|
|00005e00| 11 c9 26 41 46 46 3a 3d | 22 44 72 61 77 22 0d 23 |..&AFF:=|"Draw".#|
|00005e10| 28 14 c9 26 31 30 30 30 | 3a 3d 22 46 6f 6c 64 65 |(..&1000|:="Folde|
|00005e20| 72 22 0d 23 32 19 c9 26 | 32 30 30 30 3a 3d 22 41 |r".#2..&|2000:="A|
|00005e30| 70 70 6c 69 63 61 74 69 | 6f 6e 22 0d 23 3c 0f 7f |pplicati|on".#<..|
|00005e40| 3d c3 7e 28 74 79 70 65 | 25 29 0d 23 46 05 cb 0d |=.~(type|%).#F...|
|00005e50| 23 50 05 3a 0d 23 5a 1f | dd f2 45 76 65 6e 74 5f |#P.:.#Z.|..Event_|
|00005e60| 4f 70 65 6e 57 69 6e 64 | 6f 77 28 77 69 6e 64 6f |OpenWind|ow(windo|
|00005e70| 77 25 29 0d 23 64 14 20 | 21 77 69 6d 70 25 3d 21 |w%).#d. |!wimp%=!|
|00005e80| 77 69 6e 64 6f 77 25 0d | 23 6e 20 20 c8 99 20 22 |window%.|#n .. "|
|00005e90| 57 69 6d 70 5f 4f 70 65 | 6e 57 69 6e 64 6f 77 22 |Wimp_Ope|nWindow"|
|00005ea0| 2c 2c 77 69 6d 70 25 0d | 23 78 05 cd 0d 23 82 05 |,,wimp%.|#x...#..|
|00005eb0| e1 0d 23 8c 58 f4 20 4e | 4f 54 45 3a 20 54 68 69 |..#.X. N|OTE: Thi|
|00005ec0| 73 20 70 72 6f 63 65 64 | 75 72 65 20 69 73 20 61 |s proced|ure is a|
|00005ed0| 20 64 65 66 61 75 6c 74 | 20 6f 6e 65 2c 20 61 6e | default| one, an|
|00005ee0| 64 20 6d 61 79 20 62 65 | 20 72 65 64 65 66 69 6e |d may be| redefin|
|00005ef0| 65 64 20 69 6e 20 74 68 | 65 20 70 61 72 65 6e 74 |ed in th|e parent|
|00005f00| 20 70 72 6f 67 72 61 6d | 2e 0d 23 96 05 3a 0d 23 | program|..#..:.#|
|00005f10| a0 20 dd f2 45 76 65 6e | 74 5f 43 6c 6f 73 65 57 |. ..Even|t_CloseW|
|00005f20| 69 6e 64 6f 77 28 77 69 | 6e 64 6f 77 25 29 0d 23 |indow(wi|ndow%).#|
|00005f30| aa 13 20 21 77 69 6d 70 | 25 3d 77 69 6e 64 6f 77 |.. !wimp|%=window|
|00005f40| 25 0d 23 b4 21 20 c8 99 | 20 22 57 69 6d 70 5f 43 |%.#.! ..| "Wimp_C|
|00005f50| 6c 6f 73 65 57 69 6e 64 | 6f 77 22 2c 2c 77 69 6d |loseWind|ow",,wim|
|00005f60| 70 25 0d 23 be 05 e1 0d | 23 c8 58 f4 20 4e 4f 54 |p%.#....|#.X. NOT|
|00005f70| 45 3a 20 54 68 69 73 20 | 70 72 6f 63 65 64 75 72 |E: This |procedur|
|00005f80| 65 20 69 73 20 61 20 64 | 65 66 61 75 6c 74 20 6f |e is a d|efault o|
|00005f90| 6e 65 2c 20 61 6e 64 20 | 6d 61 79 20 62 65 20 72 |ne, and |may be r|
|00005fa0| 65 64 65 66 69 6e 65 64 | 20 69 6e 20 74 68 65 20 |edefined| in the |
|00005fb0| 70 61 72 65 6e 74 20 70 | 72 6f 67 72 61 6d 2e 0d |parent p|rogram..|
|00005fc0| ff | |. | |
+--------+-------------------------+-------------------------+--------+--------+
